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Parece ser que la primavera va a 
traer novedades para los usuarios de 
MSX. En este mismo número ya ade- 
lantamos varias, que suponemos sa- 
tisfarán a n uestros lectores. 
La primera de ellas es la sensacional 
oferta PACE de PHILIPS, consistente 
en un ordenador, joysück, cassette y 
un sensacional paquete con cíen pro- 
gramas. 

Otra de las novedades de primavera 
que podemos adelantar, es que deter- 
minado fabricante de Baracaldo aca- 
ba de comercializar un adaptador 
que, porfín, convertirá los ordenado- 
res Spectravídeo SV-328ySV-318 en 
totalmente compatibles MSX. De to- 
dos modos, hemos iniciado el contac- 
to en el momento del cierre de este 
número y -por lo tanto- nada pode- 



No os perdáis las próximas ediciones. 
La tercera novedad afecta a esta, 
vuestra revista. Observaréis que este 
mes se ha variado la forma de la sec- 
ción Bit-Bit ( esperamos que ahora os 
guste más) y esto es sólo un pequeño 
avance de una serie de mejoras que 
pretendemos incluir en la publica- 
ción. 

Una última novedad, es la desapari- 
ción de la serie más larga jamás es- 
crita para MSX -habréis adivinado 
que se trata de DEL HARD AL SOFT- 
puesto que, según Juan Carlos, ha 
cumplido sobradamente su objetivo 
original. Así pues, en este número va 
la última entrega con un par de con- 
sejos y una buena dosis de melanco- 
lía. Pero no os confíéis demasiado. Su 
autor amenaza con volver a la carga 
con algo distinto, pero tendréis que 
esperar al mes que viene para saber 
de que se trata. 

MANHATTAN TRANSFER, SA 
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VOLCADO DE 
PANTALLAS Y LINEAS 



¿Cómo se puede hacer que al 
listar una linea esta linea no 
aparezca y las demás si, aun- 
que esta linea exista? 

¿Cómo se puede volcar una 
pantalla a la impresora. 

Juan Mármol 
Alcalá de Guadaira 
(SEVTLLA) 



Contestaremos en primer 
lugar a tu segunda pregunta. 
Para volcar una pantalla a la 
impresora te recomendamos 
que utilices el programa 



PARAMSX-1 

HARD 
GOPY 

POR JOAQUIN LOPEZ 



fórmalo» d** copla* ilrouUe 
rn blanco y nutro citpu 
aprttea rrdrlinr colorei 
compatible con cu*Ji|u»«j 
impresora matrirtul 



CON GARANTIA 



HARD-COPY, editado den tro de 
la serie oro de nuestro Club de 
Cassettes. El programa HARD- 
COPY es un programa espe- 
cialmente realizado para obte- 
ner volcados de pantallas grá- 
ficas sobre la impresora. 

Ocultar sólo una o varias lí- 
neas al listado en BASIC es uno 
de esos sencillos trucos que 
permiten desorientar total- 
mente a los que pretenden ac- 
ceder de forma ilícita a nues- 
tros programas. El proceso 
mas utilizado para ello es el si- 
guiente: 

1. — Añade a la línea o líneas 
que quieras hacer desaparecer 
un apóstrofo ('), abreviatura 
de REM, y tantos signos de 
arroba (@ como caracteres 
tenga la línea más uno. 

2. — Escribe, en modo directo, 
es decir, sin número de línea, 
el siguiente listado: 
FORI=&H8000TO 
&HF37F-.IF 

PEEK(I)=A8CC@ n ) THEN 
POKE 1, 1 27.NEXT I ELSE 
WMXTL 

No te Impacientes si tarda 
algo en aparecer el mensaje 
Ok, ya que el bucle es muy lar- 
go. 

En ocasiones (casi nunca) 
el programa, tras ocultar la lí- 
nea deja de funcionar. En caso 
de que ocurra esto vuelve a 
cargar el programa con la lí- 
nea normal y repite el proceso 
utilizando otro carácter en lu- 
gar de la arroba. Es recomen- 
dable utilizar un carácter grá- 
fico que no sea utilizado en 
todo el programa. 



CABLE DE CASSETTE 



i° Patilla 



I 



Nombre de la señal 



GND 



GND 



GND 



Asignación patilla 



CMTOUT 



CMTIN 



REM + 



REM - 



GND 




Interface de cassette 



Acabo de comprarme un or- 
denador MSX y me encuentro 
con el siguiente problema. El 
cable de conexión para una 
grabadora que viene con el or- 
denador trae por un lado una 
clavija DIN y por el otro 3 de 
tipo Jack- No me es posible en- 
contrar ningún cassette que 
utilice estas clavijas. ¿Hay al- 
estas 



clavijas por una toma DIN? 
Agradecería que me indicasen 
las conexiones de dicho cable, 
ya que aquí no me sería posible 
hacerme con él. 

Juan Manuel Meneaos 
Almendr alejo (BADAJOZ) 

La conexión con tres clavi- 
jas tlpojaok está muy extendi- 
da entre los pequeños apara- 
tos de cassette. Además existe 
la posibilidad de adquirir un 
cassette especial para ordena- 
dor que permite la utilización 
de esas tres clavijas. 

Evidentemente existen ca- 
bles que permiten la conexión 
entre DIN de 8 patillas y DIN 
de 6 patillas; pero no son muy 
frecuentes y es posible que no 
los encuentres en tu localidad. 

Por último te incluimos el 
esquema de patillas de la cone 
xión del ordenador para que tú 
mismo puedas construirte di- 
cho cable. 



Vamos a poner un ejemplo 
de funcionamiento. 
6 PRINT u HOLA m @@@@@ 



10END 

Añadimos a la línea 6 

6 PRINT "HOLA" 
10END 

y escribimos a continuación . 
POR I=H8000 TO &HF37F-.D? 
PEEK(I)=ASC( U @") THEN 
POKE U27.NEXTIEL8E 
NEXTI 

Tras esto, al hacer LIST apa 
recerá. 
LIST 
10END 
Ok 




hacer RUN aparecerá 



¡Milagros de la informática/ 



MEMORIA MSX 

¿Puedo grabar en disco pro- 
gramas que estén escritos en 
BASIC y que superen los 
24.456 bytes que me deja libre 
la unidad de disco? 

8i mi ordenador es de 64 Kb, 
¿por qué hay 32 Kb que no pue- 
do usar en BASIC? ¿Cómo pue- 
do usar esos 32 Kb de memoria 
hasta ahora para mí inaccesi- 
bles? 81 contestáis que sola- 
mente desde código máquina, 
¿cómo puedo incluirlo en el 
BASIC? 

Con la instrucción VPOKE 
puedo modificar los caracteres 
del MSX en SCREEN L ¿Cómo 
puedo hacerlo en SCREEN 2? 

San t iago Fernández 
Mayoral 

LOGROÑO 

Lamentándolo mucho he- 
mos de contestarte negativa- 
mente a todas tus preguntas. A 
la primera de ellas hemos de 
decirte que no se pueden gra- 
bar en el disco programas en 
BASIC de más de 24.466 bytes 
ya que es la máxima memoria 
de que dispone el BASIC, sin 
que conozcamos ningún posi- 
ble remedio a esta limitación. 

A tu segunda pregunta he- 
mos de responderte lo mismo. 
El BASIC no es capaz de traba- 
Jar con los 32 Kb ocultos de 
memoria, por lo que no puedes 
utilizarlos desde el BASIC. 
Esta limitación está dirigida a 
los programas en BASIC; pero 
puedes utilizar esta memoria 
para almacenar gráficos, da- 
tos o cualquier otro tipo de in- 
formación que no sea directa- 
mente utilizada por el intér- 
prete BASIC. Te remitimos, 



para esta utilización de la me- 
moria, a los numerosos artícu- 
los de la serle "DelHardalSoñ" 
que han aparecido en esta mis- 
ma revista. 

Por último, no puedes modi- 
ficarlos caracteres gráficos en 
SCREEN 2 ya que estos carac- 
teres están grabados en ROM, 
a diferencia de en los otros mo- 
dos de pantalla, en que estos 
caracteres se encuentran en la 
VRAM. Esta limitación hace 
que puedas modificar los ca- 
racteres en SCREENs 0 y 1; 
pero no en SCREEN 2 ni 3. Pue- 
des, sin embargo, utilizar spri- 
tes o bien dibujar los caracte- 
res por medio del macroco- 
mandoDRAW. 



KARATE NIGHT 



Os escribo para que me di- 
gáis las lineas 1330, 1790, 
1800, 2400 y 2470 del progra- 
ma KARATE NIGHT, porque 
en la revista que yo compró es- 
tas líneas salían borrosas. 

Gil Vinas Palm aróla 
Vio (BARCELONA) 

Ciertamente las líneas que 
nos comentas aparecieron im- 
presas deficientemente en al- 
gunos números. Sin embargo 
incluimos esas líneas en el si- 
guiente número de nuestra re- 
vista. Incluimos de nuevo esas 
líneas. 

1330 PRE8ET (160,6): 
PRINT* 1, "DOJO": LINE (66, 
70) -(180, 90), 7, BF: PRESET 
(61,76): COLOR 1: PRINT* 1, 
"BOBS DOJO": LINE (67,72) 
-(148,88), l^B 

1790PRE8ET 
(160,6):PRLNT*1, 
"ATICO-.LINE (60-46)- 
(63,60),2JF:PUT8PRITE 2, 
(46,60),10,13:PUTSPRTTE 
3,(62,80),10,14:B?8<>9 
THEN FOT SPRTTE 4, 

10,186):DRAWC$:PAINT 
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SORCERY 



En el número de Junio de 
vuestra revista, número 19-20 
aparecía anunciado el Juego 
SORCERY. Quisiéramos saber 
dónde encontrarlo. 

José Onclna Casan ova 
Badalona C BARCELONA) 

El Juego que nos comentas 
eatá distribuido por DISCOVE- 
RY DíFORMATIC. El Juego es 



suñolentemente conocido, por 
lo que es muy posible que pue- 
das encontrarlo en alguna 
tienda especializada de tu loca- 
lidad. SI no consigues locali- 
zarlo puedes dirigirte directa- 
mente a: 

DISCO VER Y INFORMA TIC 

Arco Iris, 76 

06032 Barcelona 

Tel.: (93)266 49 06-09 




lOXTIa ci BütL ano cracíira- 
enemcut - - 96^ 



1 800 P8ET (1 40, 1 86 ):DRA W 
C$: PAINT (1 43,180),8 

2400 DATA 7, 18, 31, 63, 63, 
127, 266, 266, 127, 63, 0, 31, 
63, 63, 128, 192, 224, 240, 266, 

240, Ttte^befÉbe 53 ' 246 ' 

2470 DATA 262, 168, 207, 
239, 288, 79, 103, 1 18, 63, 61, 
26, 29, 18,16,18, 286, 127,63, 
169, 207, 230, 242, 248, 262, 
282, 262, 248, 248, 240, 240, 
240 



DESENSAMBLADOR 



He conseguido un Ensam- 
blador/Desensamblador y no 
puedo Introducir ningún pro- 
grama en código máquina, ya 
que al Intentar hacer 1 BNT 
dirección el programa se 
comporta de forma muy extra- 
ña. Mi programa, al parecer, es 
de HISOFT. 

¿Qué es un pseudomnemó- 
nico? 

Javier n osas 
Hospitalet de Llobregat 
C BARCELONA) 

En primer lugar hemos de 
decirte que no conseguirás 
realizar programas en ensam- 
blador hasta que no leas el ma- 
nual del programa. Los co- 
mandos a los que haces alu- 
sión son propios del programa 
ZEN, distribuido por Philips, 
mientras que nos comentas 
que posees el programa QEN, 



de HI8F0T, distribuido por 
Sony. El modo de funciona- 
miento de ambos programas 
tiene muchas diferencias, por 
lo que te recomendamos que 
estudies bien el manual antes 
de Intentar realizar tus pro- 
gramas en CM. 

Respecto a tu segunda pre- 
gunta, los pseudomnemónlcos 
o directivas de ensamblador 
son un conjunto d* instruccio- 
nes inteligibles por el ensam- 
blador; pero que no pertene- 
cen al lenguaje del Z-80. Como 
ejemplo de este tipo de instruc- 
ciones podemos citar EJBTT 
(punto de ENTrada) que en el 
programa de HISOFT es ORO 
(ORiOen). 



STAR FORCE 

Desearía saber dónde puedo 
adquirir el Juego STAR FORCE 
comercializado en BEE CARD, 
ya que, aunque sé que existe! 
no lo encuentro por ninguna 
parte. 

Fede rico Ruis 
Trapagaran (BIZKAIA) 

El Juego que nos comentas 
se comercializa en formato 
BEE CARD por SERMA, a un 
precio aproximado de 6.100 
Ptaa. Puedes buscarlo en tien- 
das de informática o grandes 
almacenes. Caso de no encon- 
trarlo puedes dirigirte directa- 
mente a SERMA. Su dirección 
es: 

Card. Belluga, 21 
28028 MADRID 
Tel. : (91) 266 60 06 



UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarin. El archivo 
en casa. 




r* 



Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n.° 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 
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CON GARANTIA 




Me gustaría que me Infor- 
marais sobre las distintas Im- 
presoras que hay en el merca- 
do y sus precios. Estoy Intere- 
sado en una que pueda hacer 
gráficos y textos. 

Sergio Rodríguez Alonso 
ZARAGOZA 

No te podemos aconsejar so- 
bre una, ni siquiera sobre un 
grupo de impresoras, ya que 
no nos comentas tus necesida- 
des concretas, es decir, canti- 
dad de listados que se van a 
realizar, tipo de textos que se 
van a imprimir: cartas, lista- 
dos, etc. 

Vamos, sin embargo, a darte 
a ti y a los otros lectores una 
somera visión del mercado ac- 
tual de las impresoras. 

Existen tres tipos principa- 
les de impresoras: matrlclales, 
de margarita, o de láser. Las 
impresoras de margarita son 
utilizadas para realizar textos 
con una alta calidad de escritu- 
ra; pero no realizan gráfíoos, 
por lo que las descartaremos. 

Las impresoras de láser pro- 
ducen una muy alta calidad de 
letra, y también son capaces de 
hacer gráfíoos con una altísi- 
ma resolución. Son sin duda, 
las impresoras con una mejor 
calidad gráfica. Además de es- 
tas características destaca su 
elevadísima velocidad, con un 
mínimo de 6 páginas por mi- 
nuto dependiendo de las mar- 
cas. Su principal inconvenien- 
te, su elevadíslmo precio, por 
encima del medio millón de pe- 
setas, que las aleja abismal- 
mente de cualquier configura- 
ción doméstica. 

Finalmente las Impresoras 
matrlclales son las utilizadas 
por la inmensa mayoría de los 
usuarios de MSX. Existen tam- 
bién los plotters, que sólo per- 
miten la generación de gráfi- 
cos, aunque pueden "dibujar" 
las letras para formar textos 
con una extraordinaria lenti- 
tud 



Podemos dividir las impre- 
soras matrlclales según cier- 
tas características: velocidad, 
calidad de letra, y compatibili- 
dad MSX. 

Las impresoras medias/rá- 
pidas, de más de 160 caracte- 
res por segundo (cps) tienen 
precios superiores a las 
1 60. 000 Pías., y no son, por lo 
general, compatibles MSX, es 
decir, pueden imprimir los 
textos de un MSX; pero no los 
caracteres gráficos. 

Existen muchas impresoras 
de velocidad baja con precios 
inferiores a las 120.000 Ptas. 
Es dentro de este grupo donde 
se encuentran las compatibles 
MSX 

Dentro de éstas podemos 
distinguir las que permiten 
una letra de alta calidad 
(NLQ), como son las Selkosha, 
EPSON, Rlteman, etc. Como 
norma estas impresoras tam- 
poco son compatibles M8X 
( excepción notable es un mo- 
delo de 8eüXosha, la 8P-1000 
MSX). 

Por último están las impre- 
soras desarrolladas por los fa- 
bricantes MSX Estas impre- 
soras tienen un "bajo" coste, 
normalmente por debajo de 
las 60-70.000 Ptas.; pero sue- 
len estar dirigidas a un público 
muy doméstico (el habitual 
dentro de los MSX). Estas Im- 
presoras suelen no ser dema- 
siado rápidas ni disponer de 
letra de alta calidad; pero estas 
características no son necesa- 
rias para el usuario doméstico 
normal. 

Te recomendamos, si te en- 
cuentras dentro de este último 
grupo, una Impresora compa- 
tible MSX, bien de una de las 
marcas del estándar, bien de 
otras marcas que hayan reali- 
zado la debida compatlblllza- 
ción de sus aparatos. La elec- 
ción de la marca o modelo de- 
terminados debes escogerlo, 
en último caso, atendiendo al 
precio, a la velocidad, a la cali- 
dad de letra y a su compatibili- 
dad MSX, aparte, evidente- 
mente, de tu gusto personal. 



— 
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8KY HAWK. ün magnífico Juego de simula- 
ción de vuelo. Kn Al te conviertes en un piloto 
que oa de derribar al enemigo y regresar al 
portaaviones sano y salvo. PVP. 1.000 pts. 



wm 



NUEVO 



VAMPIRE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. ün Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Ptfl. 



PARAMSX-1 




HARD 



LORD WATS0N. Este es un Juego muy original 
que combina el laberinto con las palabras 
cruzadas. Los obstáculos fantásticos y el vo- 
. PVP. 1.000 pts. 



POR JOAQUIN LOPEZ 

Manua por vrntanaa Ira» 
formaloao» copla» «Imularlon 
an blanco y nv|rn copla 
aprltaa xcdrfme colorea 
compatible con cualquier 
imprraora matricial. 



CON GARANTIA 



HARD C0PY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copla sprltes, redeflnic. de colores, 
compatible con todas las Impresoras ma- 
tric. PVP. 2.500 Pts. 




MATA MARCIAH06. ün Juego clasico en una 
verdión cuya mayor virtud ee su diabólica ve- 
locidad que aumenta a medida que superamos 
las oleadas de loe invasores extraterrestres. 
PVP. 900 pts. 



CON GARANTIA 

/VIAN-iATTAN TRANSFERSA 



TEST DE LISTADOS. El segundo programa de 
la Serle Oro es el útilísimo Test que te permi- 
tirá controlar la corrección de los progra- 
mas que copies de MSX CLÜB y MSX EXTRA. 
PVP. 500 Pts. 



NT DOS A m 




KRYPtíW 

\ m\á 



UBO0T 

tí ' • - ' 



QUINIELAS 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX 
PVP.500Ptas. 



Ü-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



CON GARANTIA 



QUINIELAS El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc e impresión de boletos Acertar 
no siempre es cuesüon de suerte PVP 700 
Ptas. 





SNAKE Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella PVP 600 Ptas 




EL SECRETO DE LA PIRAMIDE. Atrevido 
Juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz 
.piloto interestelar y lucha a muerte, a 
través del hipe res pací o, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 

Si quieres recibir por correo certificado 

r 



FLOPPY, El Preguntón. Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo PVP 1.000 Ptas. 



WL CC3N (iAPIANTIA 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros Conseguir el combusti 
ble para sobrevivir es su misión Diez niveles 
de dificultad PVP 1 000 pts 



«r.«nr por cuno cerraMuo^stasjaswttM garwtiMdw recortao copia^steboletín y envíalo hoy mismo: 



Nombre y apellidos: 

Dirección: 

Población: 



CP 



Prov. 



Tel.: 



□ KRYPTON 

□ UBOOT 

□ QUINIELAS 

□ HARDCOPY .... 

□ LORDWATSON 







Ptas. 500,- 
Ptea 700- 
Ptas. 700- 
Ptas. 2.500- 
Ptaa 1.000- 



□ SNAKE 

□ EL SECRETO DE LA PIRAMIDE 

□ STARRUNNER 



Ptas. 600- 
Ptas. 700- 
Ptas. 1.000- 
Ptaa 500- 
Ptas. 900- 



jj}asto8 de envió certificado por cada cassette 



□ TEST DE LISTADOS 

□ MATA MARCIANOS 

Ptas. 70- Remito talón bancario de Ptas. 



□ FLOPPY 

□ MAD FOX ... 

□ VAMPIRO .. 

□ SKYHAWK 

□ TNT 



Ptas. 1.000- 
Ptas. 1.000- 
Ptas. 800,- 
Ptas. 1.000,- 
Ptas. 1.000,- 



a la orden de Manhattan Transfer, SAj 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Philips ofrece a los futuros usuarios de MSX una espectacular oferta, su MEGA PACK NMS-100. Ordenador MSX, 
cassette especial para ordenador, joystick y 50 cintas con un total de 100 juegos a un precio excepcional, 

alrededor de 46.000 pts. 



La baja de precios parece la tó- 
nica generalizada en lo que va 
de año. Varias bajas de precios 
espectaculares han copado las pri- 
meras paginas de las revistas espe- 
cializadas. En el mundo de los orde- 
nadores personales (compatibles 
PC) destacó la baja de precios de los 
compatibles, encabezada por Ams- 
trad, con su PC de bajo costo. 

En el mundo de los MSX ha empe- 
zado una pugna por acaparar el mer- 
cado del software, que desemboca en 
una bajada generalizada del precio 
del software. 

Philips lanza una oferta realmente 
excepcional. 8u ordenador MSX VG- 
8020, un cassette especial para orde- 
nador, el NMS 6969, un joystick NSM 
0006 y cincuenta cintas con un total 
de cien programas de todo tipo. Va- 
mos a realizar una pequeña descrip- 
ción de cada uno de los elementos que 
componen el paquete. 



El VG-8020 es uno de los MSX mas 
populares, incorpora 80 Kb de RAM 
( 16 de eUos para VRAM como viene 
siendo habitual en los MSX de prime- 
ra generación). Incorpora además 
32Kb de ROM con el BASIC MSX. 

La línea de este ordenador es senci- 
Ua; pero elegante y al mismo tiempo 
funcional. En la parte frontal del or- 
denador encontramos las dos cone- 
xiones para los joysticks. Esta posi- 
ción de los conectores es mucho mas 
cómoda a la hora de jugar que la habi- 
tual posición lateral. 

El teclado, excesivamente suave 
para nuestro gusto, es el mas o me- 
nos habitual en los MSX. Dispone de 
las teclas cursoras en la parte dere- 
cha del teclado, grandes y cómodas de 
utilizar. La tecla de CAPS LOCK (fija 
mayúsculas) no tiene el LED rojo so- 
bre eUa misma, sino en la parte dere- 
cha del aparato, detaile que no com- 
porta ningún problema. 

El ordenador incorpora dos conec- 
tores de cartucho, situados sobre el 
teclado, y protegidos mediante una 
tapa de plástico que impide que se en- 
sucien o que sufran cualquier Upo de 
deterioro. 

En la parte posterior del aparato 
encontramos los siguientes conecto- 
res: televisión, monitor, cassette, im- 
presora y cable de red. Hemos de des- 
tacar la existencia de RESET, botón 
que nos permite reinicializar el apa- 




El MEGA PACK de Philips ofrece, a un precio inmejorable, todo lo necesario para adentrarse 
en el mundo de los MSX de primera generación. 

= 



rato sin necesidad de apagarlo y vol- 
verlo a encender. 

En general, el aspecto del aparato 
es compacto y parece bastante resis- 
tente. 



EL CASSETTE PARA ORDENADOR 



El MEGA PACK incluye también un 
cassette especial para ordenador. En 
este caso se trata de un cassette de di- 
seño sencillo; pero con lo suficiente 
para poderlo considerar un acepta- 
ble cassette para ordenador. 

El aspecto es el de un cassette con- 
vencional, con tecla de pausa; pero 
incorpora dos tipos de conexiones 
para el ordenador. Encontramos, en 
primer lugar las tres típicas conexio- 
nes tipo jack, las que normalmente 
usan los ordenadores MSX. También 
se puede utilizar un conector DIN. El 
cassette tiene entrada de corriente 
alterna (puede enchufarse directa- 
mente a la red) o bien puede funcio- 
nar con cuatro püas de 1,5 volti&s. 

El único inconveniente remarca- 
ble que hemos encontrado a este cas- 
sette es que el tornillo de ajuste del 
azimut del cabezal no es accesible, ya 
que nos lo impide la propia tapa del 
cassette. 



ELJOYSTICK 



El joystick es de diseño muy senci- 
llo. En su base encontramos cuatro 
ventosas que permiten, fijando el 
Joystick a la mesa, utilizarlo con una 
sola mano. 

La base es pequeña, y de ella sale la 
palanca (anatómica), que culmina 
en el botón de disparo (único). El tac- 
to de la palanca es algo duro (tal vez 
por ser nuevo), y el botón de disparo 
es algo incómodo. El diseño, aunque 
funcional, no puede ser considerado 
como muy ergonómico. 

1 QTTONPRQfrRAMAR 

Tal vez uno de los aspectos mas es- 
peciales del MEGA PACK es que in- 
cluye cien programas en cincuenta 
cintas. Pese a lo que tal vez pudiera 
pensarse los programas tienen una 
calidad muy aceptable. De la pequeña 
muestra que hemos probado, más de 
la mitad estaban realizados en en- 
samblador (código máquina), siendo 
de una calidad bastante buena, aun- 
que evidentemente no se trata de 
«best sellers» del software. 

La mayor parte de los programas 
son juegos, aunque existen progra- 
mas de todo tipo, educativos, de apli- 
cación, de pequeña gestión, etc. 

Cada cinta contiene dos progra- 
mas, uno por cara. El mayor inconve- 
niente que hemos encontrado al con- 
junto de programas es que no indican 
cómo hemos de cargarlos, es decir, si 




El VG-8020 es uno de los más populares MSX de 80 Kb. 



hemos de utilizar CLOAD, BLOAD o 
bien LOAD; pero el único problema 
que esto comporta es que hemos de ir 
probando las tres posibilidades. 

Vamos a continuación a comentar 
muy someramente una pequeña se- 
lección de los programas que hemos 
podido probar. 

En el apartado de pequeña gestión 
destaca el programa "Hoja de Cálcu- 
lo", desarrollado por DIMensión 
NEW. Este programa, pese a ser sen- 
cillo, permite la realización de peque- 
ños problemas con hoja de cálculo. 
Es un claro ejemplo de programa de 
gestión para el hogar que, aunque 
con muy pocas opciones puede resul- 
tar bastante útil. El único inconve- 
niente encontrado al respecto es que 
no existe manual de instrucciones de 
este programa, por lo que el tanteo es 
la única posibilidad de conseguir do- 
minar el programa. 

Pero la cosa no acaba aquí, encon- 
tramos también un muy potente pro- 
grama de tratamiento de textos, de- 
sarrollado por Idealogic.y que incor- 
pora muchas opciones que otros pro- 
cesadores no incorporan. Permite la 
definición de títulos, definir espacia- 
dos, márgenes, e incluso redeflnir los 
caracteres y que aparezcan modifica- 
dos en la impresora. Un programa 
realmente prometedor. 

Encontramos también otros mu- 
chos títulos, que no tenemos el espa- 
cio ni el tiempo de comentar, pero 
destacaremos algunos, como GRAFI- 
COS DE GESTION, IDEA TYPE, BASE 
DE DATOS, etc. 

Dentro del apartado de juegos po- 
demos destacar algunos como HA- 
CER, una espeluznante carrera de co- 
ches. En este programa sorprende la 
alta velocidad que se puede alcanzar 
con los coches. El hecho que permite 



tal velocidad consiste en que el juego 
está realizado en SCREEN 3. Esto per- 
mite una gran velocidad, aunque los 
gráficos pierdan mucho de su alicien- 
te. 

Existen muchos más, ya hemos co- 
mentado que la mayor parte de los 
programas son juegos. Podemos ci- 
tar títulos como ALCYON, MICKY 
LUCKY, KITCHEN (juego muy sim- 
ple pero divertido), ARTILLERO, y un 
largo etcétera. 

Dentro del apartado de programas 
educativos cabe hacer mención a un 
buen número de estos programas, 
con títulos tales como ECUACIONES 
LINEALES, RIOS DE ESPAÑA CAPI- 
TALES DE ESPAÑA etc. Hemos de 
destacar el especial interés de estos 
programas que permiten aprender 
jugando, o jugar aprendiendo. 

Finalmente hemos de comentar los 
programas de utilidad. Estos progra- 
mas incluyen títulos más que intere- 
santes, como por ejemplo SUPERDE- 
SARROLLOS 1JX.2., para generar y 
resolver la quiniela futbolística de la 
jornada, y como CALCULATOR NEW, 
otro interesante programa de la co- 
lección. 



¿Y TODO EL PAQUETE? 



El conjunto del paquete proporcio- 
na el entorno ideal para utilizar el or- 
denador. Todo lo que se precisa, ex- 
cepto la pantalla del televisor, se en- 
cuentra preparado en el MEGA 
PACK. Pero tal vez su característica 
más especial es su precio, por debajo 
de las 40.000 ptas. 

Una ocasión única para apuntarse 
al mundo de los MSX y entrar de lleno 
en el estándar más prometedor de la 
informática doméstica. ¡Es vuestra 
mejor oportunidad! 



— 



LA GIROMATICA (V) 




En este capítulo se van a analizar algunas características del GIROMATIC, que son aplicables en general a todas las 
figuras base, aunque para dicho análisis se toma como ejemplo la elipse. Más adelante se estudiarán algunas 
características específicas de las distintas figuras base, que ayudarán al manejo del programa y la elección de los 

parámetros que definen la formación de series de figuras. 



9.1- 



it 



lamaremos ángulo base al va- 
lor de A = 2.K.P1 que define la 

N 

distribución de los puntos de la figu- 
ra base, cuyo argumento es función 
de dicho ángulo base. Recordemos 
que en la elipse, el argumento de un 
punto Aj viene definido por: tg Aj = E. 
tg JA. En otras figuras base se tiene: 
Aj = JA 

9.2 - Valores particulares del ángulo 
base 

En la expresión del ángulo base A 
tenemos que para K = N/2 o bien 
K/N=0.5, A vale Pi y por tanto todos 
los puntos estarán en el eje polar ya 
que tg JA = Oy por tanto Aj = O para 
cualquier valor de J. Los puntos esta- 
rán repartidos en el eje X alternati- 
vamente en dos agrupaciones en R y 
-R, ya que Rj = R. eos J.Piycos J.Pi = 
± 1 según J sea par o impar. Al unir 
los puntos mediante una recta, la fi- 
gura base resultante es un segmento 
de longitud 2.R situado en el eje polar. 

SiK = OoK = N resulta A = O o A = 
2.P1; en ambos casos todos los puntos 
están agrupados en el eje polar a la 
distancia R, pero si también estamos 
representando los simétricos, ten- 
dremos otra agrupación en -R. 

Sea ahora N = K. q siendo q un nú- 
mero entero, es decir K es divisor de 
N. Se tendrá entonces: A = 2.K.Pi/K.q 
= 2.Pi/q 

Al calcular JA se tiene que para 
J = q, J = 2.q , *J = K.q hay K pun- 
tos agrupados en ángulos múltiplos 
de 2.PI. Los demás puntos se agrupan 
asimismo en conjuntos de K puntos 
por grupo en ángulos I.2.Pi/q varian- 
do I de O a q. El resultado es un polígo- 
no convexo de q vórtices o lados. Sin 
embargo, al representar los simétri- 
cos como hace el GIROMATIC se ob- 
tendrán bien un polígono convexo 
múltiple, bien un polígono estrenado 
según sea q par o impar. Entendemos 
por figura múltiple aqueUa que por 
razones de simetría se dibuja varias 
veces en la misma iteración del pro- 
grama. 

Para K = 1 se forma la figura base 
en una sola vuelta. Si la figura tiene 
simetría, se tendrá entonces 
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gura doble, ya que la simétrica que re- 
presenta el programa coincidirá con 
la propia figura base. 

Para valores de K entre 0 y 1, se ob- 
tiene un arco de figura base, que en 
los sucesivos giros se irá ensanchan- 
do y arroUando en espiral. 

Aunque el valor de K = 0 no se ad- 
mite en el GIROMATIC por dar en el 
cálculo de alguna figura, divisor cero, 
se puede experimentar lo dicho antes 
con un valor de K (mayor o menor 
que cero) tan pequeño como se quie- 
ra. Es decir, la giromática es también 
una función continua de k y por tanto 
de A salvo que usemos estos paráme- 
tros en otras funciones. 

Los valores negativos de K (y por 
tanto de A) son admisibles en el GI- 
ROMATIC (también exceptuando ca- 
sos especiales que se indicarán opor- 

o. 



De lo explicado más arriba pueden 
deducirse algunas consecuencias 
para la formación de figuras. 

Por ejemplo, cuando los puntos es- 
tán agrupados por ser K = N/2 y se 
gira la figura base un ángulo pequeño 
(H = 0.01), se forman dos arcos de 
curva (elipse p.e.) los cuales al unir- 
los por una recta, forman una especie 
de abanicos bastante espectaculares. 

Si la figura base es un polígono es- 
trenado (N = K.q con q impar), gi- 
randp la figura un ángulo pequeño, se 
obtiene también un efecto interesan- 
te, pues se tienen q polígonos estre- 
nados con los vértices muy próximos 
unos a otros. 

Se puede ver que K = N-T da lugar a 
las mismas figuras que K = T. En 
efecto: 

A = 2.(N-T).Pi/N = 2.P1-2.T.P1/N = 
- 2.T.P1/N y por tanto se obtendrán 




puntos simétricos respecto al eje po- 
lar de los obtenidos con A = 2.T.P1/N 
cuando K = T. De ello se deduce que 
para el análisis de series de figuras, 
basta hacerlo únicamente con valo- 
res de K variando entre 0 y N/2. Para 
las figuras que cierran la curva base 
con ángulo múltiplo de 2.pi se culple 
también que la figura formada con el 
valor de K es igual a la que se forma 
con K = N/2 — K. En este caso basta 
ensayar con valores de K entre cero v 
N/4. * 



9.3 - Figuras semejantes 

Llamamos figuras semaj antes en 
giromática a las que tienen el mismo 
ángulo base A. Para ello debe cum- 
plirse que K/N = K7MH. Resulta que si 
N' = N + I, los N puntos primeros de 
la segunda figura, tendrán las mis- 
mas coordenadas que los N de la pri- 
mera ya que J A será el mismo hasta 
J = N. Los I puntos restantes se si- 
túan en ángulos I.2.K'.Pi/N' = AI es 
decir en el mismo ángulo de los I pri- 
meros (I variando de 0 a I). Es decir, 
la figura base se ve ampliada con I 
puntos, que rodean (pues tienen dife- 
rente módulo) a los N primeros. Esta 
propiedad permite predecir la forma 
aproximada de una figura con mu- 



chos puntos, a partir de otra con me- 
nor número de puntos, con el consi- 
guiente ahorro de tiempo, ya que el 
tiempo entre dos figuras consecuti- 
vas es proporcional al número de 
puntos. 

9.4 - Giros equivalentes 

Durante la observación de una se- 
rie de figuras, tendremos interés en 
anotar los parámetros de alguna de 
ellas, por su beUeza o por su forma 
curiosa. Si la figura ocupa un lugar de 
número de orden elevado en la serie, 
sería engorroso para volver a repro- 
ducirla en la pantalla tener que pasar 
por todas las figuras anteriores. Pero 
tenemos un recurso que permite re- 
producir una figura determinada en 
la primera iteración. 

En efecto, en el giro proporcional, 
el ángulo total girado por el punto N 
después de M figuras, hemos visto 
que era: 

W J = W N = M -HJí 

Si conocemos W M y queremos obte- 
ner una figura igual a la que ocupa el 
lugar M en un solo giro, bastará hacer: 

H = W M / N 




^r>, ti * 



/ 1>:^ 



El valor de W M puede conocerse, 

ya que el programa GIROMATIC per- 
mite imprimir en la pantalla el valor 
del argumento del punto N en cada fi- 
gura, A M o bien B( 1,N). El argumen- 
to inicial del punto N es f(NA) = 
f(2.K.Pi).Si,Kes entero, f(2.K.Pi) = 0 
y entonces el argumento B(1,N) 

coincide con el giro acumulado W^, 

valor que se puede leer en la pantalla. 
Si f(2.K.Pi) # 0 entonces debe calcu- 
larse A§- a partir de la fórmula de la 

figura base o leerse en la pantalla 
dando un giro H = 0 a la figura base. 

Tendremos entonces W M = A$ -t-^y 0 - 

Si queremos obtener la figura de- 
seada en la iteración I bastará hacer : 

H = W M /tf.I 

Por su intervención repetida en las 
fórmulas de la giromática, al valor 
M.H lo designaremos como ángulo 
característico de figura. Como se 
verá, la condición para repetición de 
figuras es que M.H = 2.m.Pi siendo m 
un número entero. Es decir, la repeti- 
ción de figuras tiene lugar en aqueUa 
en que el ángulo característico es 
múltiplo de 2.Pi, en el giro proporcio- 
nal. 

La determinación del giro equiva- 
lente en el giro trigonométrico puede 
hacerse de forma análoga a la indica- 
da para el giro proporcional sustitu- 
yendo el valor de N por la función 
sen, eos, tg de s.N, de acuerdo con la 
expresión del argumento final halla- 
da en 6.1. 

9.5 -Matemática y estética 

Los ensayos que he ido efectuando 
para poner a punto el programa "Qi- 
romatic" me han permitido consta- 
tar una cierta relación estético-mate- 
mática en la formación de figuras be- 
Uas. 

Así como no todas las combinacio- 
nes posibles de sonidos forman ar- 
monía, tampoco todas las posibles 
fórmulas de giro dan como resultado 
en el "Giromatic" figuras estética- 
mente interesantes. Además de las 
fórmulas de giro descritas hasta aho- 
ra, he ensayado fórmulas en que el 
ángulp de giro H e: función potencial, 
exponencial o logarítmica del valor J 
correspondiente a cada punto. Y el 
resultado ha sido, por lo menos para 
las combinaciones que he ensayado, 
francamente desalentador. Entonces 
¿por qué unas fórmulas de giro dan 
figuras beUas y otras no? Realmente 
no puedo responder a esta pregunta, 
aunque quiero pensar que la armonía 
de los números preconizada por los 
pitagóricos tiene todavía su secreto. 

Por J. M. Cllment Paycet 
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CALLX 





Este mes dedicamos esta sección a describir una rutina que resultará de gran utilidad a los usuarios de MSX1, pero, 
sobre todo, a los programadores de aplicaciones. Se trata de transformar la RAM de vídeo en un disco-RAM, de suerte 

que sea posible almacenar en ella cualquier tipo de datos. 

Como se dijo en el pasado núme- 
ro, este mes vamos a construir 
una utilidad para aprovechar 
la RAM de vídeo que no se usa habi- 
tualmente. 

La mayoría de las aplicaciones fun- 
cionan en SCREEN O. Ya sabrás que 
en este tipo de pantalla la VRAM de 
las primeras mil posiciones está re- 
servada a la tabla de portadores (lu- 
gar donde se guardan los códigos de 
los caracteres que aparecen en pan- 
talla). Asimismo, la tabla de patro- 
nes, que define la forma de cada uno 
de los 256 caracteres que puede re- 
presentar el VDP, comienza en la di- 
rección decimal 2048 y termina en la 
4095. 

Ahora bien, ¿por qué no emplear 
las 12K, que quedan libres a partir de 
la posición 4096 hasta la 16383, y el 
algo más de un millar de octetos que 
van desde la posición 960 hasta la 
2047? 

Sé bien que disponer de 13K para 
guardar datos no se puede comparar 
con la capacidad de almacenamiento 
de los disquettes, donde el espacio 
disponible no es menor de 354K. Sin 
embargo, emplear la memoria de ví- 
deo, por limitada en espacio que sea, 
tiene la ventaja de necesitar unos 
tiempos de acceso mucho más peque- 
ños, al quedar eliminados los proce- 
sos mecánicos. Por otra parte, mu- 
chos de los lectores carecen, por des- 
gracia, de unidad de discos, con lo que 
las ventajas de emplear el disco-RAM 
aumentan al compararlo con la lenti- 
tudy la falta de fiabilidad del cassette. 

DESCRIPCION RESUMIDA 

El listado uno contiene el código 
fuente del disco-RAM y el listado dos 
el cargado de líneas DATA 

Te recomiendo que teclees el pro- 
grama cargador y el mismo se encar- 
gará de grabarse en forma de bytes, 
para que, de esta forma, pueda ser 11a- 
mado, siempre que se necesite, con la 
instrucción BLOAD. 

Cuando la rutina se haUe en memo- 
ria, el primer paso es inicializarla 
con: 

DEFUSR=#HFFE2 

El peligro reside en cambiar de 
SCREEN cuando el disco-RAM fun- 
ciona. En ese supuesto, la VRAM se 
redestribuirá por completo y lo más 
probable es que te cuelgues al inten- 
tar acceder a él. Por tanto, el disco 
RAM sólo puede ser empleado en 



SCREEN 0 y no soporta el que se cam- 
bie, aunque sea por un momento, a 
otro Upo de pantalla. 

DESCRIPCION DE LA SINTAXIS 

La sintaxis usada para manejar el 
disco-RAM difiere de la empleada por 
el BASIC. 

Unicamente son reconocidos cinco 
comandos: 

SAVE "Nombre", Inicio, Final 

LOAD "Nombre", Inicio 

KILL "Nombre" 

FILES 

FRE 

Los comandos "SAVE" y "LOAD" se 
comportan de forma muy similar a 
los del BASIC "BSAVE" y "BLOAD", 
pero con la salvedad de que LOAD ne- 
cesita de una dirección que indique 
dónde han de ser colocados los datos, 
y no vale la autoejecución. 

El comando "KILL" sirve para bo- 
rrar un fichero determinado y "FI- 
LES" para obtener un catálogo de to- 
dos los ficheros grabados en el disco- 
RAM. Para los que no disponen de 
unidad de disco, diré que estos nom- 
bres son idénticos a los que se usan 
en el citado periférico. 

Por último, el comando FRE de- 
vuelve el número de bytes libres en el 
disco-RAM. 

Para hacer una llamada a cual- 
quier de estos comandos, se debe ha- 
ber inicializado el disco (con DEFUS- 
R=6PHFFE2 : BLOAD"CAS:DISCO" : 
PRLNT USR(O) ) y emplear, en modo 
directo o desde una línea de progra- 
ma, una orden como: 



PRLNT USR(O) FILES 
Es decir, hay que anteponer 
"PRINT USR(O)" a cualquiera de los 
comandos anteriores. 

Si no se respeta la sintaxis correc- 
ta o se hace algo ilegal, la rutina emi- 
tirá el mensaje de error del BASIC 
que más se ajuste a la naturaleza del 
problema, mostrando desde el carac- 
terístico "Syntax error" hasta el "FUe ' 
no found", pasando por muchos de 
los errores que suelen presentarse al 
manejar una unidad de disquettes 
convencional. 

USOS Y LIMITACIONES 

La mayor limitación de esta rutina 
es, sin duda, la poca memoria dispo- 
nible para el disco-RAM. No obstante, 
y puesto que es posible Uamarla des- 
de una línea de programa, 12K extras 
no son despreciables si se comparan 
con las 28K de que dispone el intér- 
prete BASIC. Por otro lado, existen 
muchos programadores que em- 
plean con frecuencia programas de 
utilidad relativamente cortos (en- 
sambladores, depuradores, pequeños 
programas como los que aparecen en 
libros y revistas, etc.) y que dispon- 
drán de la ventaja de tenerlos siem- 
pre en memoria dispuestos a ser car- 
gados con una sola orden. 

Otro punto importante, es tener en 
cuenta que la rutina sólo ocupa quin- 
ce bytes de la memoria central, pues- 
to que la parte larga está permanen- 
temente en la RAM de vídeo y es vol- 
cada en la zona de trabajo de "PLAY" 
cuando se usa el disco. Gracias a esta 
maniobra no se desperdicia RAM 
útü. En contrapartida, el disco-RAM 
no se puede emplear en los MSX2, ya 
que la parte que vuelca la rutina prin- 
cipal está ubicada a partir de la direc- 
ción 6PHFFE2, lugar en el que el siste- 
ma operativo de los MSX2 guarda 
una copia de los nuevos registros del 
VDP añadidos a esta versión. Cabe de- 
cir a ello que los MSX2 disponen de 
base de un disco-RAM, ya incluido en 
el intérprete BASIC. 

Para concluir, recomiendo a los 
lectores interesados en ampliar este 
disco RAM que modifiquen la rutina 
para emplear, en lugar de la RAM de 
vídeo, la RAM paginada de 32K que se 
encuentra en todos los ordenadores 
de 64K. De cualquier forma, esto se 
tratará más adelante en esta sección 
tras un capítulo dedicado a la gestión 
de los "slots". 



— 
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LISTADO 1 



10 F0RX=iHBFE9TQ*HC24E 

20 REAOVt: POKEX , VALÍ ' W *VI ) ! S»S+PEEK( X 

) 

30 NEXT 

40 IFS0 75364 ! THEN8EEP: CLS: PRINT'HAY UN 
ERROR" 

50 CLS:PR1NT"PQN LA CINTA EN MARCHA Y P 
ULSA UNA TECLA" 

60 BSAVE'CAS: DISCO* , &HBFE9 , MC24E 

70 CLSíPRINT'Para recuperar la rutina e 

■plea:' 

80 PRINT" BLOAD'DISCO'.R ! DEFUSR=&HFF 
E2' 

90 PR1NT 

100 PRINT'El disco se incializa (se bor 
ran todos los ficheros) si haces:" 
110 PRINT" VPOKE 1026,0" 
120 PRINT 

130 PRINT'EL nuiero laxiio de ficheros 

soportados es trece" 

110 DEFUSR=*HBFE9:PRINTUSR(0> 

150 VPQK.E1026,0 

160 0EFUSR=iHFFE2 

170 ' CAGAOOR 

180 OATA 21,00,C0,ll,E2,FF,ri 1 0F,00,E0, 
80,2i,OF,CO,ll,96,05,01,4E,02,C3,5C,00 



190 'RUTINA 

200 DATAOl l £C l O0 l 21 l W,O5,tl t SE l F5 l CO ( S 
9,00,C3,SE,F5,01,54,01,U,75,F9,21,82,6 
,00,59,00,21, 02, 00,39, 7E, 32,01, FA, 23,66 
,6F,06,05,11,BA,FA,IA,96,28,1B,3£,20,BE 
, 23,28, F6.2B, 13, 10.F2, 1E,02,C3,6F,40,ED 
,5B,C9 

210 OATAFA,21,02,00,39,73,23,72,C9,CB,2 
0,48,47,79,FE,02,20,07,23,7E,FE,8F,20,E 
0,23,23,00,21,BO,FA,00,09,01,80,F5,C5,0 
0,46,01,00,4E,00,C5,OD,El,00,E9,CF,22,2 

2, CF,FA,3E,22,01,0E,00,E0,B1,1E,38,E2,6 
F,40,C9 

220 OATA06,OC,CO,4A,00,CO,A2,00 1 23,10,F 
7,3E,0D,C0,A2,OO,3E,0A,C0,A2,OO,C9,C0,4 
A,00,B7,37,C9,1E,05,18,99,D5,E5,E0,5B,C 
F,FA,06,0C,IA,FE,22,28,0C,4F,C0,4A,00,B 
9,37,20, 14,23, 13, 10, EF.3E.0C, 90, 28, 08,2 

3, CD,4A 

230 0ATA00,B7, 37, 20, 03, 10,F6,87,E1 ,01, C 
9,21,00,04,00,21,00, 10, C0,4A, 00, 5F, 23, C 
D,4A,00,57,23,00,22,C0,FA,22,CB,FA,C0,E 
7,F5,C8,00,t9,3A,Di,FA,B7,37,C4,Fl,F5,0 
0,01,OC,00,09,18,OA,CO,BF,F5,CF,2C,CO,2 
F, 54,05 

740 0ATACF ) 2C,22,C9,FA,C0,2F,54,0S,CD,1 
0,F6,04,32,FA,01,E1,A7,EB,ED,S2,CA,E0,F 
5,0A,E0,F5,44,4D,2A 1 CB,FA,E5,2B,78,C0,4 



0,00, 28,79, 00,40,00, El, CS, E5,06,0F,AF,C 
0,40,00,23,10,F9,E1,ED,4B,CF,FA,0A,FE,2 
2,28,07 

250 0ATAC0,4D,00,23,03,18,F4,C1,2A,C0 1 F 
A,09,3E,3F,BC,3O,0E,2A,CB,FA,2B,28,AF,C 
0,4D,00,IE,07 1 C3,6F,40,EO,42,EB,C3,5C 1 0 
0,C0,BF I F5,CF,2C,C0,2F,54,05,22,C9,FA,C 
D,10,F6,1E,35,DA,6F,40,2A,CB,FA,28,CO,4 
A.00,47 

260 DATA2B,C0,4A,00,4F,2A,CD,FA,01,C3,5 
9,00,22,C9,FA,21,02,04,CD,E7,F5,28,0B,C 
0,01,F5,23,23,CO,E7,F5,20,F6,C9,1E,35,C 
3,6F,40,C0,BF,F5,22,C9,FA,C0,10,F6,38,F 
0,2A,CB,FA,E5,2B,C0,4A,0O,47,2B,C0,4A,0 
0,4F,23 

270 0ATA23,DD,2A,CD,FA,0O,E5,AF,32,01,F 
A,C5,C0,1D,F6,C1,2A,CD,FA,A7,ED,42,22,C 

0, FA,09,EB,El,CO,7D,FA,EO,5B,CB,FA,Et,2 
8,2B,1B,1B,01,OE,00,CD,7D,FA ( 2A,C8,FA ( 0 

1, F2,FF,09,AF,22,CB,FA,C3,40,00,E5,09,E 
5,EB,AF 

280 0ATAED,52,44,40,01,E1,C8,08,EB,C0,4 
A,00,EB,CO,4D,00,23,13,OB,79,BO,20,F1,C 
9,22,C9,FA,AF,32,01,FA,CO,10,F6,21,00,4 
0,ED,5B,CD,FA,ED,52,22,B7,FA,21,B6,FA,C 
3,24,4A,0C,00,00,3A,BA,B5,B7,04,FF,9A,F 
A,27,FA 

290 0ATA0C,FA,E4,F9,75,F9 





LIST 


AD0 2 \ 


290 
300 


JR 
DEC 


Z,LO 
HL 








310 NSPC: 


INC 


DE 


io vpeek: 


EQU 


I4A 


320 


DJNZ LO 


20 vpqke: equ 


140 


330 SYNTAX: 


LO 


E,2 


30 


0R6 


♦FFE2 


340 ERR: 


JP 


•406F 


40 


LO 


8C.FIN-IC+2 


350 RETR: 


LD 


DE, (VECTOR) 


50 


LD 


HL,1430 


360 


LO 


HL,2 


60 


LD 


DE,*F55E 


370 


AOD 


HL,SP 


70 


CALL 159 


380 


LO 


(HL),E 


80 


JP 


IF55E 


390 


INC 


HL 


90 


0R6 


IFS5E 


400 


LO 


(HL),D 


loo ic: 


LD 


BCVECTOR-SAVE 


410 


RET 




110 


LD 


0E.IF975 


420 FOUNO: 


SLA 


8 


120 


LD 


HL.1430+FIN-IC+2 


430 


LD 


C,B 


130 


CALL 159 


440 


LD 


B,A 


140 


LD 


HL,2 


450 


LO 


A.C 


150 


AOD 


HL.SP 


460 


CP 


2 


160 


LD 


A,(HL) 


470 


JR 


NZ, NOFRE 


170 


LO 


(RELE), A 


480 


INC 


HL 


180 


INC 


HL 


490 


LO 


A, (HL) 


190 


LO 


H,(HL) 


500 


CP I8F 


200 


LD 


L,A 


510 


JR 


NZ, SYNTAX 


210 


LD 


B,5 


520 


INC 


HL 


220 


LD 


DE, TB 


530 NOFRE: 


INC 


HL 


230 LO: 


LD 


A, (DE) 


540 


LO 


IX.TBJP-2 


240 


SUB 


(HL) 


550 


ADD 


IX, BC 


250 


JR 


Z.FOUND 


560 


LD 


BCRETR 


260 


LD 


A," ' 


570 


PUSH BC 


270 


CP 


(HL) 


580 


LO 


B. ( IX+I ) 


280 


INC 


HL 


590 


LO 


C,(IX*0) 



600 


PUSH BC 


910 


LD B, 12 


610 


POP IX 


920 NON: 


LO A, (DE) 


620 


JP (IX) 


930 


CP 34 


630 6ETN0H: 


RST 18 


940 


JR Z, EXITQ 


640 


DEFB 34 


950 


LD C,A 


650 


LO (INNOHUl 


960 


CALL VPEEK 


660 


LD A, 34 


970 


CP C 


670 


LO BC.14 


980 


SCF 


680 


CPIR 


990 


JR NZ,EXIT 


690 


LO E,56 


1000 


INC HL 


700 


JP PQ,*406F 


1010 


INC DE 


710 


RET 


1020 


DJNZ NQM 


720 OUTNOfi: 


LD B,12 


1030 EXITQ: 


LD A, 12 


730 L2¡ 


CALL VPEEK 


1040 


SUB B 


740 


CALL IA2 


1050 


JR Z.EXIT 


750 


INC HL 


1060 L6: 


INC HL 


760 


DJNZ L2 


1070 


CALL VPEEK 


770 


LO A, 13 


1080 


OR A 


780 


CALL IA2 


1090 


SCF 


790 


LO A, 10 


1100 


JR NZ.EXIT 


800 


CALL IA2 


1110 


DJNZ L6 


810 


RET 


1120 


OR A 


820 chefil: 


CALL VPEEK 


1130 EXIT: 


POP Hi 


830 


OR A 


1140 


POP DE 


840 


SCF 


1150 


RET 


850 


RET 


1160 EXITSQ: 


LD HL, 1024 


860 ILEGAL: 


LD E,S 


1170 


LD IX, 4096 


870 


JR ERR 


1180 exq: 


CALL VPEEK 


880 COHNQH: 


PUSH DE 


1190 


LD £,A 


890 


PUSH HL 


1200 


INC HL 


900 


LD DE, (INNOH) 


1210 


CALL VPEEK 



13 



CALLX 



1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 

1360 fin: 
1370 

1380 save: 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 LS: 

1720 

1730 

1740 

1750 

1760 

1770 L4: 
1780 
1790 
1800 



14 



LD 
INC 
LD 
LO 



M 

HL 

(POSFILÍ.II 
(POSOIR 



,HL 



CALL CHEFIL 



Z 

IX, DE 
A, (RELE) 
A 



RET 
ADD 
LO 
OR 
SCF 

CALL nz.cohnoh 
RET NC 
LD BC.12 
AOD HL, BC 
JR EXQ 
0R6 IF975 
CALL 6ETN0H 
RST 18 
DEFB V 
CALL »542F 
PUSH DE 
RST 18 
DEFB V 

LD (VECTOR) ,HL 

CALL I542F 

PUSH DE 

CALL EXITSQ 

CALL NC.DELETE 

POP DE 

POP HL 

AND A 

EX OE , HL 

S8C HL , DE 

JP Z, ILEGAL 

JP C , í LEGAL 

LD B.H 

LD C,L 

LD HL, (POSOIR) 

PUSH HL 

DEC HL 

LD M 

CALL VPOKE 

DEC HL 

LO A.C 

CALL VPOKE 

POP HL 

PUSH BC 

PUSH HL 

LD 6,15 

XOR A 

CALL VPOKE 

INC HL 

DJNZ L5 

POP HL 

LD BC(INNOfl) 
LO A, (BC) 
CP 34 
JR Z.EO 
CALL VPOKE 




1810 
1820 
1830 

1840 EO: 

1850 

1860 

1870 

1880 

1390 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 HEN: 

1980 

1990 

2000 LOAO: 

2010 

2020 



2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 

2190 FILES 

2200 

2210 

2220 

2230 Ll: 

2240 



NC 

INC 

JR 

POP 

LD 

ADO 

LO 

CP 

JR 

LD 

DEC 

DEC 

XOR 

CALL 

LD 

JP 

SBC 

EX 

JP 

CALL 

RST 

DEFB 

CALL 

PUSH 

LO 

CALL 

LO 

JP 

LO 

OEC 

CALL 

LD 

DEC 

CALL 

LD 

LD 

POP 

JP 

LO 

LD 

CALL 
JR 

CALL 
INC 



HL 
BC 
L4 
BC 

HL.(POSFIL) 
HL , BC 
A, 63 
H 

NC.HEN 

HL, (POSOIR) 

HL 

HL 

A 

VPOKE 
E,7 
I406F 
HL , BC 
DE , HL 
I5C 

GETNOH 

18 
> t 

I542F 

DE 

(VECTOR), HL 

EXITSQ 

E,S3 

C,t406F 

HL, (POSOIR) 

HL 

VPEEK 

M 

HL 

VPEEK 
C,A 

HL.(POSFIL) 

DE 

159 

(VECTOR) ,HL 

HL, 1026 

CHEFIL 

Z.NFOUNO 

OUTNOfl 

HL 



2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2250 
2260 
2270 
2280 

2296 NFOUND; 
2300 

2310 kill: 
2320 
2330 
2340 

2350 DELETE: 

2360 

2370 

2380 

2390 

2400 



CALL VPEEK 
LD C,A 
INC HL 
INC HL 

LO IX.ÍPOSFIl) 
PUSH IX 
XOR A 

LD (RELE) , A 
PUSrf BC 
CALL EXITSQ 
POP BC 

HL.(POSFIL) 
A 

HL,BC 

(POSFID.HL 
HL, BC 
OE , HL 
HL 

CALL HOVVOP 
LD OE, (POSDIR) 
HL 
HL 



LO 

AND 

SBC 

LD 

ADD 

EX 

POP 



2690 


LO 


BC.-14 


2700 


ADD 


HL, BC 


2710 


XOR 


A 


2720 


LD 


(POSDIR),HL 


2730 


JP 


VPOKE 


2740 HOVVOP: PUSH HL 


2750 


AOD HL , BC 


2760 


PUSH HL 


2770 


EX 


DE , HL 


2780 


IOR 


A 


2790 


SBC 


HL , DE 


2800 


LD 


B,H 


2810 


LO 


C.L 


2820 


POP 


DE 


2830 


POP 


HL 


2840 


RET 


Z 


2850 


RET 


C 


2860 LOOP: 


EX 


DE , HL 


2870 


CALL VPEEK 


2880 


EX 


DE, HL 


2890 


CALL VPOKE 


2900 


INC 


HL 


2910 


INC 


DE 


2920 


DEC 


BC 


2930 


LO 


M 


2940 


OR 


B 


2950 


JR 


NZ.LOOP 


2960 


RET 





2970 FRE: LO 



(VECTOR), HL 



POP 
OEC 
DEC 
DEC 
OEC 
LD 



HL 
DE 
OE 

BC, 14 
CALL HOVVOP 
LO HL, (POSDIR) 
INC HL 
CALL CHEFIL 
JR NZ.Ll 
RET 

LO E.S3 
JP I406F 
CALL 6ETN0H 
LD (VECTOR), HL 
CALL EXITSQ 
JR C, NFOUND 
LO HL, (POSOIR) 
PUSH HL 
DEC HL 
CALL VPEEK 
LD B, A 
DEC HL 



2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 

3070 BUF: 
3080 CONS: 
3090 
3100 T6: 
3110 
3120 
3130 
3140 

3150 tbjp: 

3160 

3170 

3180 

3190 

3200 vector: 
3210 POSOIR: 
3220 posfil: 
3230 innoh: 
3240 RELE: 



XOR A 
LD (RELE) , A 
CALL EXITSQ 
LD HL, 14000 
LO DE, (POSFIL) 
SBC HL , DE 

LD (CONS),HL 

LO HL.BUF 

JP I4A24 

DEFB IC 

DEFW O 

DEFB *:' 

DEFB IBA 

DEFB »B5 

DEFB IB7 

DEFB m 

DEFB #FF 

DEFW FRE 

DEFW KILL 

DEFW FILES 

DEFW LOAD 

DEFW SAVE 

OEFW O 

DEFW O 

DEFW O 

DEFW O 

OEFB O 



= 



YA ESTA EN TU QUIOSCO. Sto 



UNA REVISTA EXCEPCIONAL. Stop 




Diseñada para servir 



al usuario de un PC. Stop 



EL COMO Y EL POR QUEDE 



UN STANDAR COMUN Stop 




OTRO PRODUCTO MANHATTAN TRANSFER; S.A. Stop 



A la vanguardia de la prensa útil. Stop 
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TALISMAN 




Cuentas con sólo veinte vidas 

______ 




10 ' lili TALISMAN ■ ■ ■ ■ 
20 ' ■ ■ 

30 ' ■ POR Jasé Kenéndtz ■ 
40 ' ■ ■ 
50 ' ■ AVILES ■ 

60 ' ■ ■ 

70 ' ■ PARA H.S.X. EXTRA ■ 
80 ' 

90 CLSiSCREEN 2.2:C0LCR l, 1, 1: DEFINI A 
-Y 

100 CLOSEiOPEN "GRP:" ASftlrfiOTfl 5510 
110 PANTALLA 0 ■ 
120 PUT SPRITE i, (0,0) ,0:PUT SPRITE 2, 
(0,0),0:PUT SPRITE 3, (0,0),0:PUT SPRIT 
E 10, (0,0),0:PUT SPRITE U, (0,0),0:PUT 
SPRITE 12,(0,0),O:PUT SPRITE 23,(221, 
120) ,0:PUT SPRITE 31, (30, 30) , 0: PUT SPR 
ITE 22, (220, 119), 0 
130 CLS: COLOR 1, 1, l-.GOSUB 6150 
140 P=0:V=20:Z1=51:LINE(0,182)-(255,19 
1),15,BF 

150 DRAti"BM8, 183" : COLOR l:PPINTil,"V=' 

;v 

160 LINE',50, 1B4)-(210, 189) ,B,BF:LINE(5 
0,184)-(50,1B9),B:LINE(210,184)-(210,1 
89), B 

170 LINE(230. 1825-!255, 189) , 13. BF: DRAM 
"B1218, 1B3":PRINTI1, "P: DRAWBPI230, 18 
3":PPINT«i,P 

180 LINE(0, 160} -(200, 181) .4,BF:DRAN"BK 
:55.181S4CllL75E4iJE6L , 2E5UE5UE3R65 B :PAI 

«1(253,179), 11 

190 DRAWBM. 166S14C15EFEFEFEFEFEFEFEF 
EFE r EFEFEFEFEFEFEFEFEFEFEFEFEFEFE r EFEF 
EFEFEFEFE":DRAWBM.176S14C15EFEFEFEFE 
FEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFE 
FEFEFEFEFEFEFE" 
200 FOR 1=0 TC 20 

210 C1=INT(RND ( 1 ) 1240) *10: C2=INT íRND ( 1 

220 PSET(C:.C2).15:NEX T ! 
230 PUT SPRITE 31.(20,305,15.33 
240 50SUB 6160 



250 BEEP:X0=-3f: v 0«l 

260 SO'JND 7,227:S0ÜND 6.31:SQLND '3,6?: 

SDUND2,2SS:SOUN0 4.25:S0UND 12.155:S0U 

ND 13,!!0¡SOUN!1 3,255 

270 X0=XP+1 

280 PSE T (225, 145! . 15 

290 IF Yl«<l THEN YfM 

300 IF X0='--240 THEN X0=-30 

310 PUT SPRITE 1,(X0,Y0),10,25:P'." SPR 

ITE 2. 'X0*16,Y0V0,26: C! J T 3 D *!TE 3 fl (10 

*8. v 0+:6).B.2 7 : p, J T SPRITE 4,(X0*10,Y0+ 

37),11,1:PUT S^FITE 5,(X0*10.YI+37),6, 

3;PUT SPRITE 6, (X0 A °,Y0+45) ,3,28 

320 D=STICK(0) OR STICK(l) 

330 IF D=5 THEN Y0=Y0+1 

340 IF D=l THEN Y0=Y0-1 

350 PSET(225.145),6 

360 IF X0=>1B0 AND Y0=>92 THEN PUT SPR 

ITE 4,(X0-60,149),6,3:PUT SPRITE 5, (XI 

-60,149>,15,i:P'JT SPRITE 7, (X0-60, 165) 

,12.6:S0UND 7,227:S0UND 4,25:S0UND 12, 

155:S0UND 13,9:S0UND B,255:F0R 1=0 TO 

1000:NEXT I:PUT SPRITE 7, (X0-50,165),0 

:GOSUB 5330: GOTO 250 

370 IF X0=>205 AND X0=<215 AND Y0=91 T 

HEN X0=205:FOR 1=0 TO 100:NEXT I:BEEP: 

PLAY'05L64V15CDEFGABCD", , 05L64V15CDDEF 

6ABC':G0T0 420 

3B0 IF Y0=>118 THEN 410 

390 IF X0=<172 AND Y0=>100 THEN BEEP:B 

EEP:BEEP:GOTO 260 

400 60T0 270 

410 BEEP:GOSUB 5330:FOR 1=0 TO 1800:NE 

XT I:BOTO 250 

420 PUT SPRITE 4, (X0,Y0) ,0:PUT SPRITE5 
,(X0,Y0),0 

430 E1=1:E3=3:E4=5:E5=6 
440 FOR 1=0 TO 13 

450 PUT SPRITE 8, (X0+20.Y0+37) , 11,E1:P 
ÜT SPRITE 9,(X0+20,Y0+37),6,E3:PUT SPR 
ITE 10,!X0+20,Y0+53),2,E4 
460 X0=X0+2 
470 SHAP E4,E5 




480 IF X0=>255 THEN 530 
490 FOR E=0 TO 25 
5P0 NEXT E:NEXT I 

510 PUT SPRITE 1 ,(0,190),0:PUT SPRITE 
2,(0,190),0!PUTSPRITE 3, (0, 190) ,0:PUT 
SPRITE 4,(0, 190), 0:PUT SPRITE 5.(0.19 
0),0:PUT SPRITE 6,(0,190),0 
520 PUT SPRITE 8, (0, 190) ,0:PUT SPRITE 
9,(0,190),0:PUT SPRITE 10, (0,190), 0:PU 
T SPRITE 31,(17,70),! 
530 *■■ PANTALLA 1 ■■ 
540 CLS:GOSUB 6150:COLOR 1,1,1 
550 P=1:X=2:LINE(0,182)-(255,191),15,B 
F 

560 DRAH"BH0,60S4C3R2ER2ER2F2R2E2RF2R2 

E2RF2RE2RF2R2ERERFRF2ER2ERFRERE2RFERF2 

RE2R2FERF2ERFE2RFRERF2R2EFR2E2FRERF2RE 

R r 2RE2RFEFREF2RE2RF2RE2FREREFR2FEREFEF 

RE2F2REF2RE2RF2RE2RFE2PF2REF2R2EFP2E2F 

ERF2RF2ER2FERFR2E2' 

570 DPAWBM90.60S4C3ER2EFR2E2FREF2R2E 

r RE2FREF2R2FEFERERFE2RFER2FRE2RFER2FE2 

RF2REF2R2FER2FE2R2FER2' 

5B0 LINE(0,63)-(255,63),3:PAINT(0,62), 

3:LINE(0,64)-(255,66),2,BF:LINE(0,67)- 

(255.70),12,BF:LINE(0,71)-(255,75),2,B 

F:LINE(0,76)-(255,B0),12,BF:LINE(0,81) 

-(255,35), 2, BF 

590 FOR 1=0 TO 15 

600 C2=INT(RND(l)t240)+10:C3=INT(RND(l 




611 PSET(C2,C3) , 15: NEXT I 
620 PUT SPRITE 31 '(20,35) j 15,33 
630 DRAH'BM8,1B3-:COLOR ífPRIHTIl.'V»" 

;v 

6*0 LINE(50,IB4)-(210.189!,8,3F:LINE(5 
0.194)-(50.189),8:LINEI21?.184)-(2!0,1 
89). 8 

650 LINE(230,182)-(255.189),15,BF:DRAK 
'Bfi:i8.tB3':PRINTIl,'P:-:DRAH'BH23í,18 
3':PPINTtl,P 

660 5CSUB 6160:GOTO 3840 

670 'Hf PANTALLA 2 M 

680 P=2:X=2:60SUB 6150 

690 DPAÍTBM45, 139S6C3U2H2L2EF3U2ER2HG2 

U4LUEFDLD8":DRAW'BH55,135S6C7U2H2L2EF3 

U2ER2HG2U4LUEFDLD8' 

700 DRAWBH100. 139S6C4U2H2L2EF3U2ER2HG 

2U4LUEFDLD8':DRAWBI1110,135S6C3U2H2L2E 

F3U2ER2HG2U4LUEFDLÜ8' 

710 DRAWBH155, 139S6C8U2H2L2EF3U2ER2HG 

2U4LUEFDLD8':DRAtTBM165,135S6C3U2H2L2E 

F3U2EP2HG2U4LUEFDLD8" 

720 DRA*'BM210, 139S6C11U2H2L2EF3U2ER2H 

62U4LUEFDLD8 , :DPAWBM220,135S6C3U2H2L2 

EF3U2ER2H62U4LUEFDLD8" 

730 PUT SPRITE 31,(30.301,15,33 

740 LINE(230,182)-(255,189),15,BF:DRAK 

*BH230,183':PRINTtl,P 

750 GOSUB 6160:6OTC 3840 

760 PANTALLA 3 ■■ 

770 P=3:X=2: GOSUB 6150 

780 CIRCLE(45,128),5,6.,,.6:PA!NT(45.1 

28).6:LINE(43,131)-:47,136).15,BF 

790 CIRCLE(100,128),5,!3 1 ,..6:PAINT(10 

0.128),13:LINE(98.131)-(102,!36),15.BF 

800 CIRCLE(155.128).5.3.,..6:FAÍKT(155 

,uB),3:LINE(153.131)-(l57,138) ) 15.BF 

810 CIRCLE(210,129),5.14,.,.6:PAINTC! 

0,12B),14:LINE(208.!31)-;212,136),!5,B 
F 

820 PUT SPRITE 31. (40, 25), 15.33 

830 LINE(230,1B2)-(255,199),15,BF:DRAW 

■BM230,1B3':PRINTI1.P 

840 GOSUB 6160: GOTO 3840 

850 '■■ PANTALLA 4 M 

860 P=4:X=2:60SUB 6150 

870 CIRCLE(45,144),7,8,,,1.4:CIRCLE(60 

, 129) ,7, 8, , , 1.4:DRAH"8H40, 140S4C8E15BF 

9615':PAINT(52,137),8:PAINT(60,129),8: 

CIRCLE(45,144),3,8 

880 CIRCLE(100, 144),7,9„,1.4:CIRCLE(1 
15,129),7,9„,1.4:DRAH'BI195,140S4C9E15 
BF9G15 , :PAINT(107,137),9:PAINT(115,129 
!",9:CIRCLE(100.144).3.9 
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890 CIRCLE ( 152. 144) , 7, 6, . , 1 . 4: CIRCLE( 1 

68,129),7,6,„1.4:DRAH'BH!4e,140S4C6El 

5BF9615":PAINT(160,137),6:PAINT!16B,12 

9),6:CIRCLE(152,144),3,6 

900 CIRCLE(207,144),7,9,,,1.4:CIRCLE(2 

22,12?),7,9„,1.4:DRAH'BH202.140S4C9E1 

5BF9G15':PAINT(214,137).9:PAINT(222,12 

9),9:CIRCLE(207,144),3,9 

910 PUT SPRITE 31, (50, 20). 15. 33 

920 LINE(230,182)-(255, 1891,15. BF:DRAW 

■BN230,183":PRINTfl,P 

930 GOSUB 6160: GOTO 3840 

940 ' N PANTALLA 5 ■■ 

950 P=5: X=2: GOSUB 6150 

960 CIRCLE(45,137),10,4.,,.6:PAINT(45, 

:37M:CIRCLE(100, 137), 10,4, ,,.6:PAINT 

1111,137), *:CIRCLE(155 I 137), 10,4,,,. 6: 

PAI«T(155,137),4:CIRCLE(2!0.:37).10 ) 4, 

„.6:PAINT(210,137),4 

973 PUT SPRITE 31, (60, 15) ,15,33 

980 LINE(230,182)-(255.199),15,BF:DPAW 

"BH230, 183-:PRINTtl f P 

990 GOSUB 6160: 60TO 3840 

1000 n PANTALLA 6 ■■ 

1010 P=6:X=2:G0SUB 6150 

1020 DRAWBN45.145S4C13U15R18G15L18E15 

■:PAINT(44, 144), 13:DRAWBH100,145S4C13 

U15R18G15L1BE15":PAINT(99,144),13:DRAW 

■BH155,145S4C13U15R18G15L18E15':PAINT( 

154, 144) , 13:DRAW"BM207, 145S4C13U15R18G 

15L18E15":PAINT(206,14¿),¡3 

1030 PUT SPRITE 31, (70, 16) . 15,33 

1040 LÍNE(230,182)-(255.189),15,BF:DRA 

WB.1230, 183-:PRINTtl f P 

1050 GOSUB 6160:GOTO 3840 

1060 '■■ PANTALLA 7 II 

1070 P=7: X=2:G0SUB 6150 

1090 LINE(0,155)-(28,H5),12,BF:CRAH'B 

n0,!30S4C12R45G15DI0E!5U10":PA!NT!44,l 

32),12:LINE(46,155)-(84,145),i:.PF:DRA 

H"BH46,145S4C12Er5P40G15D10E15U10" : PAI 

NT(100,132),12 

1090 LINEU00,155)-(138,145),12,SF:D C ¿ 
W"Bf!100,145S<C12E15R40G15D10E15U10 , :PA 
INT(154.132),12:LINE(156,155)-(192.145 
) , 12,BF:DRAWBH156, 145S4C12E15R38G15D1 
0E15U10':PAINT(208,132),12:LINE(209.¡5 
5)-(255, 145) . 12,BF:DRAWBH209, I45S4G12 
E15R40' 

1100 PUT SPRITE 31 , (120, 10) , 15, 33 
1110 LINE(230,!82)-(255,189),15,BF:DRA 
WBM230, 183":PRINTf l,P 
1120 60SUB 6160:6OTO 3840 
1130 '■ PANTALLA 8 ■■ 



1140 P=8:X=2: GOSUB 6150 

1150 LINE(0,120)-(255.155),4,BF 

1160 DRAH"BH0.145S4C15R28E15L3G!5L3E!5 

L3G15L3E15L3615L3E15L3G15L3E15L3G15L3E 

15L368" 

1170 DRAWBM55, 1 45S4C 1 5R28E 1 5L3G 1 5L3E 1 
5L3G15L3E15L3G15L3E15L3G15L3E15L3G15L3 
E15L3G15R6L9E15R3" 

1180 DRAH'BM110,145S4C15R28E15L3G!5L3E 

15L3G15L3E15L3G15L3E15L3G15L3E15L3G15L 

3E15L3G15R6L9E15R3' 

1190 DRAWBH165, 145S4C15R28E15L3G15L3E 

15L3G15L3E15L3G15L3E15L3G15L3E15L3515L 

3E15L3G15R6L9E15R3" 

1200 DRAWBM217, 145S4C15R34E4L3G4L3E8L 

368L3E15L3615L3E15L3G15L3E15L3G15L3E15 

L3615L3E15L3G15R6L9E15R3' 

1210 PUT SPRITE 31,(90,11.15,33 

1220 L!NE(230.182)-(255,189),15.BF:!)RA 

WBM230, 183":PRINT#1,P 

1230 GOSUB 6160: GOTO 3830 

1240 'W PANTALLA 9 H 

1250 P=9:X=2: GOSUB 6150 

1260 LINEÍ1B0, 142)-(255, 1 42 ) 4 7 : L I NE ( 1 ? 

0,133)-(255,133),7 

1270 FOP T=185 TO 242 STEP 10 

1280 LINE(T,145)-(T+15,!30).7:LINE'U1 

5.130) -(T*20,130),7:LINE(T+20.130)-'T* 
5,145!,7:LINE(T*5,145)-(T,145),7 

1290 NEXT T 

1300 PUT SPRITE 31, (100.1), ¡5.3: 

1310 LINE(230.182)-(255,189!,15.P-:ORA 

N'BH230,183 , :PRINTIl,P 

1320 GOSUF 6160:6CTO 3830 

1330 PANTALLA 10 ■■ 

1340 P=10: X=2: GOSUB 6150 

1350 L!NE(0,;A2)-(255,142),7:LINE(0.13 

3)-(255,133),7 

1360 FOR T=2 TO 232 STEP 10 

1370 L!NEíT.145)-(M5,130\7:L:*:(M 

5.131) -(T*2l,Í3#>,7jüNE(T+20,i3«1-(T* 
5,145;,7:LINE(T*5,!45)-(T.!í5¡.7 

1380 NEXT T 

1390 PUT SPRITE 31, (110,5) , 15,33 

1400 LINE(230,182)-(255,1S9),15,BF:DRA 

W"BM230,183":PRINTfl,P 

1410 GOSUB 6160:GOTO 3200 

1420 '■■ PANTALLA 11 ■■ 

1430 P=l 1: X=2: GOSUB 6150 

1440 PUT SPRITE 31, (120, 15) , 15.33 

1450 FOR T=2 TO 52 STEP 10 

1460 LINE(T,145)-'M5.1305 , 7:LINE(M 

5.130)-(T+20.130),7:LINE(T+20,130)-(T* 

5,145),7:LINE(T*5.145)-(T,145),7 
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1470 NEXT T:LINE(0,142)-(75,¡42),7:LIN 

E(0,133)-(83,133).7 

1480 L1NEÍ230, 182) - í 255, 189) . 15, BF: Df?A 

N-BH230. 1B3":PRINT#I.P 

1490 GOSUB 6160:GOTO 3200 

1500 »■ PANTALLA 12 M 

1510 P=12: X=2: GOSUB 6150 

1520 LÍNE (75, 181 ) - ( 170,86) ,4: LINE (til, 

181 )-< 172,86) , 4: LINE (75, 181 ) - (1 10, 181 ) 

,4:LINE(170,86)-(172,86),4:PAINT(99,17 

9), 4 

1530 PUT SPRITE 31, (130,20) , 15,33 

1540 LINEÍ230, 182)-(255, 1 89 ) , 1 5 , BF : DRA 

WBf1230, 183":PRINTtl,P 

1550 GOSUB6160:6OTO 3200 

1560 PANTALLA 13 ■ 

1570 P=13:X=2;60SU6 6150 

1580 DRAH-BH95, 18 1 C9U20R 10D20L 1 0' : PAIN 

T(96,1B0),9:LINE(105,181)-(180,B9),6:L 

INE(105,161)-(180,85),6:LINE(95,161)-( 

177,85), 6:LINE(180,85)-(178,B5),6:LINE 

(105, 1611-195, 161), 6: PAINT (104, 160), 6 

1590 PUT SPRITE 31, (140,25) , 15,33 

1600 LINE(230,182)-(255,189),15,BF:DRA 

WBM230, 183-:PRINTtl,P 

1610 BOSUB 6160:GOTO 3200 

1620 '■■ PANTALLA 14 II 

1630 P=14: X=2: GOSUB 6150 

1640 PUT SPRITE 31, (150,30) , 15,33 

1650 LINE (230, 182) -(255, 189), 15, BFsfM 

WBM230, 183-:PRINTtl, P 

1660 GOSUB 6160:GOTO 2000 

1670 'II PANTALLA 15 II 

1680 P=15: X=2: GOSUB 6150 

1690 PUT SPRITE 31, (160,35) , 15,33 

1700 LINE (230, 182) - (255, 189) . 15, BF: DRA 

WBH230,183":PRINTI1,P 

1710 GOSUB 6160: GOTO 2000 

1720 '■■ PANTALLA 16 ■■ 

1730 P=16:X=2:G0SUB 6150 

17.40 PUT SPRITE 31, (170,35) , 15,33 

1750 LINE(230,182)-(255.199!.15,BF:!> C '¿ 

WBH230,183":PRINTI1,P 

1760 GOSUB 6160: GOTO 2000 

1770 II PANTALLA 17 ■■ 

1780 P=17:X=2:GOSUB 6150 

1790 PUT SPRITE 31,(180,351,15,33 

1800 LINE(230,182!-(255,189),15.BF:DRA 

WBH230,183":PRINTtl.P 

1810 GOSUB 6160:GOTO 2000 

1820 '« PANTALLA 19 ■■ 

1830 P=19:X=2:G0SUE 6150 

16*0 PUT SPRITE 31, (190,35) ,15,33 

1850 LINE (230. 1B2Í- (255. 189). 15, BF: DRA 







WB«30,183 , :PHN T »1,P 

I&60 GOSUB 6160:6010 2000 

:S70 -n PANTALLA 1= H 

1980 ?=!?: X=2:G0SUB 6150 

1S90 PUT SPRITE 23.(220,120),0:PUT SPR 

! T E 22, (220, 120). 0 

l?f| PÜT SPRITE 31, (2M, 35), 15, 33 

1910 LINE(230, 182) - '255, 189) , 15. BF : DRA 

K'B*230,183":PRINT!!,P 

1920 GOSUB 6160:GOT3 2000 

! 3 30 PANTALLA 20 ■■ 

1940 t*=20:X=2:6OSUB ¿150 

1950 PUT SPRITE 31, (210, 40), 15, 33 

1960 CIRCLE (226, 137) , 11,4, „ . 25: CIRCLE 

!228,142),U,4,0,3.14,.25:PAINT(22B,13 

7). 4 

1970 PUT SPRITE 22, '220, 119) , 12, 42 
[W LINE(230,iB2)-f255.189), 15,9F:DRA 
H"BR23f f 183" : PRINTil f P 

60SUB 6160: GOTO 2000 
2000 CIRCUITO 3 n 
2010 Xl=225: Yl=120: X2=70: Y2=80: X3=170: 
Y3=90: 1(4=80: Y4=80: X5= 1 20: Y5=82: X6=160: 
V6=P4:V1=36:V2=37:V3=34:V4=35:V5=38:V6 
=39:V7=40:V8=41 
2020 GOSUB 5090 

2030 IF STRIG (0)=-l 3R STRI6(1)=-1 TH 
EN GOTO 2310 

2fl| PUT SPRITE 1. tX,Y),U,El:Mtt 3PRI 
TE 2,(X,Y),6,E3:PUT SPRITE 3, (X, Y+16) , 
2.E4 

2050 ! c D=3 AND X= -230 "HEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2, (X, Y) ,0:PUT SP 

RITE 3,(X,Y*16),0:P'JT SPRITE 10,Ü1,Y1 

),0:PUT SPRITE 11, (X:.Y1),0:PUT SPRITE 
12,(X1,Y1),0:LINE(0,86)-Í255.181),1,B 

F:6GT0 2230 

2060 IF D=7 AND X=<0 THEN X=0 

2070 IF P=14 THEN BOSUB 2660 

2080 !F P=15 THEN GOSUB 2720 

2090 IF P=16 THEN GOSUB 2780 

2100 IF P=17 THEN GOSUB 2840 

2110 IF P=18 THEN BOSUB 2920 

2120 IF P=19 THEN GOSUB 3000 

2130 IF P=20 THEN GOSUB 3100 

2140 IF P=20 AND X=>205 THEN 5130 

2150 D=STICK(0) OR STICK(l) 

2160 IF D=0 AND E3=3 THEN E1=5:E4=4:Y= 

1 10:6010 2020 

2170 IF D=0 AND E3=12 THEN E1=10:E3=12 
:E4=13:Y=110:6OTO 2020 
2180 IF D=2 AND M=l OR D=3 AND W=l OR 
D=4 AND H=l THEN X=X+5: E 1= 1 : E3=3: E4=5: 
W=2: Y=l 1 1 : S0UND3, 9: S0UND8, 16: S0UND9. Li 



: SOUND10, 16: S0UND1 1 , 50: S0UND12, 0: SOUND 
13,9:G0T0 2020 

2190 IF D=2 AND H=2 OR D=3 AND W=2 OR 
D=4 AND W=2 THEN X=X+5:E1=2:E3=3:E4=6: 
«=l:Y=110:SOUND3,9:SOUND9.16:SOUND10,l 
6:S0UND1 1 , 1 0 : SOUND 1 2 , 0 : SOUND 1 3, 9 : GOTO 
2020 

2200 IF D=6 AND Z = l OR D=7 AND ¡=1 OR 
D=8 AND Z=l THEN X=X-6:E1=I0:E3=12:E4= 
14: Z=2: Y=l 1 1 : S0UND3, 9: S0UND9, 16: SOUND 1 
0,16:SOUNDll,50:SOUND12,0:SOUND13,9:fiO 
TO 2020 

2210 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND Z=2 THEN X= X-6 : E 1 = 1 1 : E3= 1 2 : E4= 
15:Z=1:Y=110:SOUND3,9:SOUND9,16:SOUND1 
0,16:SOUND11,10:SOUND12,0:SOUND13,9:GO 
TO 2020 

2220 GOTO 2020 

2230 IF P=14 THEN 1670 

2240 IF P=15 THEN 1720 

2250 IF P=16 THEN 1770 

2260 IF P=17 THEN 1920 

2270 IF P=18 THEN 1970 

2280 IF P=19 THEN 1930 

2290 IF X< 135 AND XM10 AND Y>98 THEN 

4610 ELSE RETURN 

2300 H SALTO H 

2310 IF D=5 THEN 2020 

2320 PLAY , V15L6406C , ,"V15L6405G" 

2330 Y=Y-6 

2340 IF D=3 THEN 2360 
2350 IF D=7 THEN 2510 
2360 E1=7:E3=3:E4=8 
2370 FOR 1=0 TO 4 
2380 Y=Y-4 

2390 IF D=3 THEN X=X+5 

2400 IF P=14 THEN GOSUB 2660 

2410 IF P=15 THEN GOSUB 2720 

2420 IF P=16 THEN GOSUB 2780 

2430 IF P=17 THEN GOSUB 2840 

2*40 IF P=18 THEN GOSUB 2920 

2450 IF P=19 THEN GOSUB 3000 

2460 IF P=20 THEN GOSUB 3100 

2470 PUT SPRITE 1, (X, Y) , ll,El:PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3,(X+2,YM6 

),2,E4 

2490 IF X=>X4-15 AND X=< X4+ 1 5 AND Y4=> 
99 OR X=>X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6+15 AND Y6=>98 T 
HEN BOSUB 5330: GOTO 4640 
2490 NEXT I 
2500 Y=110:GOTO 2040 
2510 E1=16:E3=12:E4=17 
2520 FOR 1=0 TO 4 
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2530 IF D=7 THEN X=X-5 
2540 Y=Y-4 

2550 IF P=14 THEN GOSUB 2660 
2560 IF P=15 THEN GOSUB 2720 
2570 IF P=16 THEN GOSUB 2780 
2580 IF P=17 THEN GOSUB 2840 
2590 IF P= 18 THEN GOSUB 2920 
2600 IF P=19 THEN GOSUB 3000 
2610 IF P=20 THEN GOSUB 3100 
2620 PUT SPRITE 1, (X,Y) ,11,E1:PUT SPRI 
TE 2,(X,Y),6,E3:PUT SPRITE 3, (X-2,Y*16 
),2,E4 
2630 NEXT I 
2640 Y=110:GOTO 2040 
2650 n ANIMALES ■■ 
2660 XI =X 1-5 

2670 IF Xl=<20 THEN Xl=255 
2680 IF X=>Xl-5 AND X=<X1 +15 AND Y=>98 
THEN GOSUB 5330: GOTO 4640 
2690 PUT SPRITE 10, (XI, Yl) ,3,V1 
2700 SWAP VI, V2 
2710 RETURN 
2720 X1=X1-12 

2730 IF Xl=<20 THEN Xl=255 
2740 IF X=>Xl-5 AND X=<XM5 AND Y=>93 
THEN GOSUB 5330:GOTO 4640 
2750 PUT SPRITE 10, (Xl.Yl) .8,V3 
2760 SWAP V3,V4 
2770 RETURN 
2780 Xl=Xl-6 

2790 IF Xl=<20 THEN Xl=255 

2800 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 

THEN GOSUB 5330: GOTO 4640 
2810 PUT SPRITE 10, (XI, Yl! , 10, V5 
2820 SWAP V5,V6 
2830 RETURN 
2840 Xl=Xl-6:X2=X2-8 
2850 IF Xl=<20 THEN Xl=255 
2860 IF X2=<20 THEN X2=255 
2870 IF X=>Xl-5 AND X=< XI +15 AND Y=>98 

OR X=>X2-5 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330: GOTO 4640 
2880 PUT SPRITE 10, (XI, Yl) , 10, V5 
2890 PUT SPRITE 11, (X2.Y1) ,8,V3 







2«00 SWAP V3,V4:SWAP V5.V6 
2910 RETURN 
2920 Xl=Xl-8: X2=X2-9 
2^30 TF Xl=<20 THEN Xl=255 
2940 IF X2=<20 THEN X2=255 
2950 IF XOX1-5 AND X=<X1M5 AND Y=>98 
OR X=>X2-1 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330: GOTO 1640 
2960 PUT SPRITE 10, (Xl.Yl) . 11, VI 
2970 PUT SPRITE 11, (X2, v l ¡ ,8,V6 
2980 SWAP V5,V6:SHAP VI, V2 
2990 RETURN 

3000 X1=X1-6:Y2=Y2*2:Y3=Y3M 
3010 IF Xl=<20 THEN Xl=255 
3020 IF Y2=>M0 THEN Y2=80 
3030 IF Y3=>110 THEN Y3=80 
30*0 IF X=>X2-15 AND X=<X2+15 AND Y2=> 
98 OR X=*3-15 AND X=<X3+15 AND Y3=>98 
OR X=>X 1-5 AND X=<X1M5 AND Y=>98 THE 
N GQSUB 5330: GOTO 4640 
3151 PUT SPRITE 10, (X2, Y2) ,7, V7 
3060 PUT SPRITE 11, (X3,Y3),4,V8 
3070 PUT SPRITE 12, (XI, Y!) , 11 , VI 
3080 SKAP V7,V8:SNAP V1.V2 
3190 RETURN 

3100 Y4=Y4+2:Y5=Y5*2:Y6=Y6+2 
3110 IF Y4=>105 THEN Y4=80 
3120 IF Y5=>105 THEN Y5=82 
3130 IF Y6=>105 THEN Y6=94 
3140 IF.X=>X4-15 AND X=<X«+15 AND Y4=> 
98 OP X=)X5-15 AND X=< X5+ 1 5 AND Y5=>98 
OR XOX6-15 AND X=<X6+15 AND Y6=>98 T 
HEN 50SUB 5330: GOTO 4640 
3150 PUT SPRITE 10, (X4, Y4) , 14, V7 
3160 PUT SPRITE 11, (X5,Y5).7,V7 
3170 PUT SPRITE 12, (X6, Y6) , 12, V8 
3180 SWAP V7,V8:SWAP VI, V2 
3190 RETURN 

3200 '« CIRCUITO 2 n 

3210 X1=225:X2=160:Y1=!00:V1=31:V2=32: 

V3=34:V4=35 

3220 GOSUB 5090 

3230 IF STRIG (0.)=-! OR STPIBí 1) =-1 TH 
EN GOTO 3450 

3240 PUT SPRITE 1, (X.Y) , 11,E1:PUT SPRI 
TE 2.(X,Y),6,E3:PUT SPRITE 3,(X,Y+16), 
2,E« 

3250 IF D=3 AND X=)230 THEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2. (X, Y) ,0:PUT SP 

RITE 3, (X,Y*16),0:PUT SPRITE 10, (XI, Y! 

!,0:PUT SPRITE 11, (Xl.Yl), 0:PUT SPRITE 
12,(X1,Y1),0:LINE(0,86)-(255,181) I 1.B 

F.-GOTO 3390 

3260 IF D=7 AND X=<0 THEN X=0 





La más rápida 
y completa batalla 
espacial 



Nombre y Apellidos: 7 — i 

Dirección: 111..............! 



Población: 
Provincia: 



I □ Deseo recibir: 



| El importe de mi pedido lo hago efec- 
. tivo mediante: 

I □ Cheque adjunto a nombre de: 
i MSX CLUB DE CASSETTES 

C/Roca y Batlle, 10-12, bajos. 
I 08023 Barcelona 



ODi~ii~ OQt~iQC 
I l\UUl\l II II l-i 




1470 NEXT T:LINE(0,1*2>-(75,142),7:LIN 
E (0,133) -(83, 133). 7 

14B0 LINEÍ230, 132) -Í255, 18?) . 15,BF:Df?A 

N'BH230,lB3":PRINTti,P 

1490 GOSUB 6160:6010 3200 

1500 '« PANTALLA 12 ■■ 

1510 P=12: X=2: GOSUB 6150 

1520 LINE (75, 181) -(170,86) ,4: UNE (110, 

181 )-( 172,86) , 4: LINE (75, 181 )- (110, 181 ) 

,4:LINE(170,86)-(172,86),4:PAINT(99,17 

9), 4 

1530 PUT SPRITE 31, (130,20), 15,33 

1540 LINE(230,182)-(255,189),15,BF:DRA 

« , BH230,183 , :PRINTI1,P 

1550 5OSUB6160:GOTO 3200 

1560 PANTALLA 13 ■ 

1570 P=13:X=2:60SUB 6150 

1580 DRAWBM95, 181 C9U20R10D20L10" : PAIN 

T(96,180),9:LINE(105,181)-(180,B9),6:L 

INE(105,161)-(l80,85),6:LINE(95,161)-( 

177,85),6:LINE(180,85)-(178,85),6:LINE 

(105,161)-(95,161),6:PAINT(104,160),6 

1590 PUT SPRITE 31, (140,25) , 15,33 

1600 LINE(230,182)-(255,189),15,BF:DRA 

K'BH230,lB3":PRINTtl,P 

1610 GOSUB 6 160: GOTO 3200 

1620 '■■ PANTALLA 14 n 

1630 P=14: X=2:60SUB 6150 

1640 PUT SPRITE 31, (150,30) , 15,33 

1650 LINE (230, 182) - (255, 189) , 15,BF:DPA 

M"BH230,183":PRINTI1,P 

1660 GOSUB 6160:GOTO 2000 

1670 •■PANTALLA 15 ■■ 

1680 P=15:X=2:G0SUB 6150 

1690 PUT SPRITE 31, (160,35) , 15,33 

1700 LINE (230, 182) -(255, 189) , 15. BF: DRA 

WBM230, 183":PRINTt 1,P 

1710 GOSUB 6160:GOTO 2000 

1720 '■ PANTALLA 16 ■■ 

1730 P=16:X=2:60SUB 6150 

17.40 PUT SPRITE 31, C 170, 35) , 15,33 

1750 LINE(230, 1B2)-(255.!89).15,BF:!>F.2 

WBM230, 183-:PRINT#1,P 

1760 GOSUB 6160: GOTO 2000 

1770 '■ PANTALLA 17 ■■ 

1780 P=17:X=2:G0SUB 6150 

1790 PUT SPRITE 31, (180,35) , 15,33 

1800 LINE (230, 182)- (255, 189) , 15. BF : DRA 

*'BH23I,183':PRINTI1.P 

1B10 GOSUB 6160:6OTO 2000 

1820 '" PANTALLA 18 ■■ 

1830 P=18:X=2:G0SUB 6150 

18*0 PUT SPRITE 31, (190,35), 15, 33 

1850 LINE(230.IB2!-f255,í39).15,BF:DRA 







K'B«30,183 , :PiINTtl f P 

1660 GOSUB 6160:6010 2000 

•570 'II PANTALLA 19 ■■ 

1980 *=19:X=2:60SUB =150 

1S90 *L'T SPRITE 23. (220, 120) ,0:PUT SPR 

! T E 22. ¡220, 120), 0 

\W PUT SPRITE 31, ftf 0,35), 15,33 

1911 LINE(230.1B2)-(255,i89).15.BF:DRA 

rB*230,183':PRINTtl,P 

1920 GOSUB 6160:6OT2 2000 

|?5| tt PANTALLA 20 ■■ 

1940 %20:X=2:6OSUB ¿150 

1950 PUT SPRITE 31, (210,40) , 15,33 

1960 CIRCLE(228,l37),il,4,,,.25:CIRCLE 

(22B,142),11,4,0,3.14,.25:PAINT(228,13 

7), 4 

1970 PUT SPRITE 22, '220, 119) , 12, 42 

1980 LINEí230,182)-í255.189),15,9F:DRA 

WBP-230, 183-:PRINTtl.P 

I9«J0 GOSUB 6160: 60TQ 2000 

2000 CIRCUITO 3 M 

2010 X1=225:Y1=120:X2=70:Y2=80:X3=170: 

Y3=80:X4=80:Y4=80:X5='.20:Y5=82:X6=160: 

Y6=?4:V1=36:V2=37:V3--3«:V4=35:V5=38:V6 

=39:V7=40:V8=41 

2020 GOSUB 5090 

2030 IF STRIG (0)=-l 3R STRIG(1)=-1 TH 
EN GOTO 2310 

2010 PU T SPRITE l. IK.YIjU.ElsPUT 3PRI 
TE 2, (X,Y) ,6,E3:PUT SPRITE 3, (X, Y+16) , 
2,E* 

2050 IF D=3 AND X= 2T0 ~HEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2, (X, Y) ,0:P'JT SP 

RITE 3,(X,Y+16),0:P'JT SPRITE 10,(X1,Y1 

),0:PUT SPRITE 11, ( X : . Yl ) v 0: PUT SPRITE 
12,(X1,YI),0:LINE(0,86)-(255.181),1,B 

F:60T0 2230 

2060 IF 0=7 AND X=<0 THEN X=0 

2070 IF P=14 THEN GOSUB 2660 

2080 IF P=15 THEN GOSUB 2720 

2090 IF P=16 THEN GOSUB 2780 

2100 IF P=17 THEN GOSUB 2840 

2110 IF P=18 THEN GOSUB 2920 

2120 IF P=19 THEN GOSUB 3000 

2130 IF P=20 THEN GOSUB 3100 

2140 IF P=20 AND X=>205 THEN 5130 

2150 D=STICK(0) OR STICH1) 

2160 IF D=0 AND E3=3 THEN E1=1:E4=4:Y= 

110:6OTO 2020 

2170 IF D=0 AND E3=12 THEN El=i0:E3=12 
:E4=13:Y=110:6QTO 2020 
2180 IF D=2 AND «=i OR D=3 AND H=l QR 
D=4 AND M=l THEN X=X*5:E1=1:E3=3:E<=5: 
W=2: Y=l 1 1 :S0UND3, 9: S0UND8, 16: S0UND9, 16- 



:SOUND10,16;SOUND11,50:SOUND12,0:SOUND 
13, 9: GOTO 2020 

2190 IF D=2 AND H=2 OR D=3 AND H=2 OR 
D=4 AND H=2 THEN X=X+5: E 1=2: E?=3: E4=6: 
N=1:Y=110:SOUND3,9:SOUND9.16:SOUND10,1 
6 : SOUND 11,10: SOUND 12,0: SQUND 13,9: GOTO 
2020 

2200 IF D=6 AND Z=l OR D=7 AND ¡=1 OR 
D=8 AND Z=l THEN X = X -6 : E 1 = 1 0 : E3= 1 2 : E4= 
14: Z=2:Y=111:S0UND3, 9: S0UND9, 16:S0UND1 
0,16: SOUMD 1 1 f 50 : SOUND 1 2 , 0 : SOUND 1 3 , 9 : £0 
TO 2020 

2210 IF D=6 AND Z=2 OR D=7 AND Z=2 OR 
D=8 AND Z=2 THEN X=X-6:E1 = U:E3=12:E4= 
15:Z=1:Y=U0:SOUND3,9:SOUND9,16:SOUND1 
0, 16:S0UND11, 10: S0UND1 2, 0: S0UND13, 9: GO 
TO 2020 

2220 60T0 2020 

2230 IF P=14 THEN 1670 

2240 IF P=15 THEN 1720 

2250 IF P=16 THEN 1770 

2260 IF P=17 THEN 1820 

2270 IF P=18 THEN 1B70 

2280 IF P=19 THEN 1930 

2290 IF X<135 AND X>110 AND Y>98 THEN 

4610 ELSE RETURN 

2300 'M SALTO n 

2310 IF D=5 THEN 2020 

2320 PLAY'V15L6406C",'V15L64056" 

2330 Y=Y-6 

2340 IF 0=3 THEN 2360 
2350 IF 0=7 THEN 2510 
2360 E1=7:E3=3:E4=8 
2370 FOR 1=0 TO 4 
2380 Y=Y-4 

2390 IF D=3 THEN X=X+5 

2400 IF P=14 THEN GOSUB 2660 

2410 IF P=15 THEN GOSUB 2720 

2420 IF P=16 THEN GOSUB 2780 

2430 IF P=17 THEN GOSUB 2840 

2440 IF P=1B THEN GOSUB 2920 

2450 IF P=19 THEN GOSUB 3000 

2460 IF P=20 THEN GOSUB 3100 

2470 PUT SPRITE 1, (X, Y) , 1 1 , E 1 : PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3,(X+2,YM6 

>,2,E4 

2480 IF X=>X4-15 AND X=<X4+15 AND Y4=> 
98 OR X=>X5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6M5 AND Y6=>98 T 
HEN GOSUB 5330:6OTO 4640 
2490 NEXT I 
2500 Y=110:6OTO 2040 
2510 E1=16:E3=12;E4=17 
2520 FOR 1=0 TO 4 




o 



^ ^ <^ 



| 2890 



2530 IF D=7 THEN X=X-5 
2540 Y=Y-4 

2550 IF P=14 THEN GOSUB 2660 

2560 IF P=15 THEN GOSUB 2720 

2570 IF Mí THEN GOSUB 2780 

2580 IF P=17 THEN GOSUB 2840 

2590 IF P=18 THEN GOSUB 2920 

2600 IF P=19 THEN GOSUB 3000 

2610 IF P=20 THEN GOSUB 3100 

2620 PUT SPRITE 1 , í X , Y) , 1 1 , E 1 : PUT SPRI 

TE 2,(X,Y),6,E3:PUT SPRITE 3,Ü~2,YM6 

),2,E4 

2630 NEXT I 

2640 Y=110:GOTO 2040 

2650 '■■ ANIMALES n 

2660 X 1=X 1-5 

2670 IF Xl=<20 THEN ¡(1=255 
2680 IF X=>Xl-5 AND X=<Xí + 15 AND Y=>98 
THEN GOSUB 5330:GOTO 4640 
2690 PUT SPRITE 10, (Xl,Yl),3,Vi 
2700 SWAP VI, V2 
2710 RETURN 
2720 X1=X1-12 

2730 IF Xl=<20 THEN X 1 =255 
2740 IF XOX1-5 AND X=<X1H5 AND Y=>98 
THEN GOSUB 5330: GOTO 4640 
2750 PUT SPRITE 10, (Xl.Yl) ,8,V3 
2760 SWAP V3,V4 
2770 RETURN 
2780 XI =X 1-6 

2790 IF Xl=<20 THEN XI =255 
2800 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 
THEN GOSUB 5330:GOTO 4640 
2810 PUT SPRITE 10, (XI, Yl) , 10, V5 
2820 SHAP V5,V6 
2830 RETURN 
2840 Xl=Xl-6:X2=X2-8 
2850 IF Xl=<20 THEN Xl=255 
2860 IF X2=<20 THEN X2=255 
2870 IF X=>Xl-5 AND X=<X1+15 AND Y=>98 
OR X=>X2-5 AND X=<X2+15 AND Y=>98 THE 
N GOSUB 5330:GOTO 4640 
2880 PUT SPRITE 10, (XI, Yl) , 10, V5 
2890 PUT SPRITE 11, (X2,Y1),8,V3 



2900 SWAP V3,V4:S«AP V5.V6 
2910 RETURN 
2920 X 1=X 1-8: X2=X2-9 
2930 IT Xl=<20 THEN Xl=255 
2940 IF X2=<20 THEN X2=255 
2950 IF X=>Xl-5 AND X=< X 1 + 1 5 AND Y=>98 
OR X=>X2-1 AND X=<X2*15 AND Y=>98 THE 
N GOSUB 5330: GOTO <640 
2960 PUT SPRITE 10, (XI, Y!) , 11, VI 
2970 PUT SPRITE 11, (X2, V 1),8,V6 
2980 SMAP V5,V6:SNAP VI, V2 
2990 RETURN 

3000 X1=X1-6:Y2=Y2+2:Y3=Y3M 
3010 IF Xi=<20 THEN Xl=255 
3020 IF Y2=>fl0 THEN Y2=80 
3030 IF Y3=>110 THEN Y3=80 
30*0 IF X=>X2-15 AND X=<X2+15 AND Y2=> 
98 OR X=*3-15 AND X=<X3M5 AND Y3=>98 
OR X=>Xl-5 AND X=<X1M5 AND Y=>98 THE 
N GQSUB 5330: 60TO 4640 
3150 PUT SPRITE 10, (X2, Y2) ,7, V7 
3060 PUT SPRITE 11, (X3,Y35,4,VB 
3070 PUT SPRITE 12, (XI, Y!) , II, VI 
3080 SHAP V7,V8:SHAP VI, V2 
3190 RETURN 

3100 Y4=Y4+2: Y5=Y5+2: Y6=Y6+2 
3110 IF Y4=>105 THEN Y4=80 
3120 IF Y5=>105 THEN Y5=82 
3130 IF Y6=>105 THEN Y6=84 
3140 IF.XOX4-15 AND X=(X4+15 AND Y4=> 
98 OR XOX5-15 AND X=<X5+15 AND Y5=>98 
OR X=>X6-15 AND X=<X6+15 AND Y6=>98 T 
HEN GOSUB 5330: GOTO 4640 
3150 PUT SPRITE 10, (X4, Y4) , 14, V7 
3160 PUT SPRITE 11, (X5.Y5) . 7, V7 
3170 PUT SPRITE 12, (X6.Y65 , 12, V8 
3180 SHAP V7,V8:SNAP VI, V2 
3190 RETURN 

3200 '■■ CIRCUITO 2 ■■ 

3210 X1=225:X2=160:Y1=I00:V1=31:V2=32: 

V3=34:V4=35 

3220 GOSUB 5090 

3230 IF STRIG (0.)=-! OR STRIG(1)=-1 TH 
EN GOTO 3450 

3240 PUT SPRITE 1 , ( X , Y ) , 1 1 , E 1 : PUT SPRI 
TE 2,(X,Y),6,E3:PUT SPRITE 3, ÍX, Y+16) , 
2,E4 

3250 IF D=3 AND X=>230 THEN PUT SPRITE 
1,(X,Y),0:PUT SPRITE 2. (X,Y),0:PUT SP 

RITE 3,(X,Y*16),0:PUT SPRITE 10, (XI, Y! 

),0:PUT SPRITE 11, (Xl.Yl), 0:PUT SPRITE 
12,(X1,Y1),0:LINE(0,B6)-(255,181),1.B 

F:GOTO 3390 

3261 IF D=7 AND X=<0 THEN X=0 




Te encuentras en un oscuro 
castillo abandonado, inten- 
tando encontrar una llave 
de oro para romper el he- 
chizo que te impide salir. 
Para lograrlo tienes que ha- 
cer estallar los barriles de 
TFT y esquivar los mons- 
truos y la corriente de lava. 
Un apasionante juego de 
aventura. 



Nombre y Apellidos: 



Dirección: 



i Población: CP. 

Provincia: 



□ Deseo recibir: 



| El importe de mi pedido lo hago efec- 
tivo mediante: 
I □ Cheque adjunto a nombre de: 
I MSX CLUB DE CASSETTES 
1 C/Boca y Batlle, 10-12, bajos. 
| 08023 Barcelona 





Di 
1 




Jb¡ 


DO/1% 


DC 
U 


lllllllllllllllll 


m 










m 



4960 PUT SPRITE 10, (XI , Yl ) , 0: PUT SPRIT 
E 11,(X1,Y1),Í:PUT SPRITE 12,(X1,Y1),0 
4970 FOR T=0 TO 70 

4980 PUT SPRITE 1, (X,YH2) , ll,Ei:PUT S 
PRITE 2,(X,Y+12),6,E3:PUT SPRITE 3,(1, 
Y), I 

4990 NEXT T 
5000 PLAY'B' 

5010 FOR T=0 TO 30 

5020 PUT SPRITE i, (X,Y*12) , 15,E1:PUT S 

PRITE 2,(X,Y+12),6,E3 

5031 NEXT T 

5040 X«2lY«lll 

5050 IF P=^9 GOTO 3840 

5060 IF P=10 OR M\ OR P=12 OR P=13 T 

HEN 60T0 3220 

5070 IF P>=14 THEN GOTO 2020 

5080 TIEMPO M 

5090 LINE(Z1,185)-(Z1M,188),15,BF 

5100 IF Zl=>208 THEN PLAY'EEECCC":FOP 

r=0 TO 2000:NEXT I : GOTO 120 

5110 Zl=Zl+. 08 

5120 RETURN 

5130 FINAL ■■ 

!140 PUT SPRITE 23,(220,1191,15,43 
5150 FOR 1=0 TO 500:NEXTl 
5160 PUT SPRITE 1 , (0,0) ,0:PUT SPRITE 2 
,(0,0),0:PUT SPRITE 3, (0,0) ,0:PUT SP9I 
TE 10,(0,0),0:PUT SPRITE 11, (0,0),0:PU 
T SPPITE 12, (0.01.0 

5170 PLAY'05l64Vi5CCEFEABCD","05L64V15 

CDDEFGABC 

5180 FOR N=0 TO 17 

5190 PLAY'V15L6í06C*,"V15L6405G" 

5200 E1=7:E3=3:E4=8 

5210 FOR 1=0 TC 4 

5220 Y=Y-5 

5230 PUT SPRITE 1, (X, Y) , tl,El:PUT SPRI 
TE 2,(X,Y),6,S3:?UT SPRITE 3,(X*2,Y*16 
),2,E4 

5240 PUT SPPITE 22, (X+10, Y-I0) , 12, 42: P 
L'T SPRITE 23, (X+i«,Y-l#), 15,43 
5250 NEXT N 

5260 FOR 1=0 TC 3000:NEXT I 
5270 CLS:C010R 1 

5280 DRAN"BK28,80":COLOR 15:PRINTI1 , "P 

ara repetir la aventura" 

5290 DRAH'BI17e i 120':COLOR 15:PRINTtl," 

PULSA UNA TECLA" 

5300 EI=INKEYS 

5310 IF Ei=" THEN 5300 ELSE PUT SPRIT 
E 22,(X,Y),0:PUT SPRITE 23, (X, Y) ,0:GOT 
0 120 

5320 '» VIDAS ■■ 



5330 V=V-i:LÍNE(27, 182 ) - ( 48 , 1 ? 1 ) , 15 . 3- 
:DRAWB*25,1S3":COLOR 1:PRINTI1,V 
5340 PLAY"01LlfV12CDEF6AB" 
5350 IF V=-l THEN PLAY"EEECCC" : FOR 1=0 
TO 2000: NEXT I : GOTO 120 
5360 RETURN 

5370 PRESENTACION n 

5360 H1I= , L12C6GECEGE , :H2$="L12DFAFDFA 

F':M3$=-05"+M2$:MA$=-05"+«!$ 

5390 M6*="L6CCCC":h7$="02"+H6$:H8$="03 

•+M6Í:M?f=-06"+Mf)$ 

5400 PLAY'03"*Hl*iPLAYH2$,83$:PlAYHl$, 

«4i,N5<:PLAYN7S,!18í,M9$ 

5410 CLS:^Q3UB 6150 

5*20 DRAtTBK55.70S4C7U30L562R5D30E2U30 
L5U5G2D5E2U5R15D5L5D2R3E2L5Ü30L5G2R5E2 
BR5U15G2D15E2U15R10U5L5G2R5D3U3L5E2U5G 
2D5U5E2R10D25L15G2R15E2BH5U5L5D5R5L2U3 
L3D3R5BF5BR5U35G2D35E2U35R5D30R5D5L10G 
2R10E2" 

5430 DRAWBH100, 70S4C7U2562D25E2U25R5D 
25L5G2R5E2BL5BU30U562D5E2R5U5L5D5G2R5E 
2BD30BR5U562C5E2U5R10U5L1062R10D3U3E2L 
10U1562D15E2U15F15D5L10D2R8E2L10D5R10D 
*15L1562R15E2" 

5440 DRAWBH130, 70S4C7U25G2D25E2R5G2L5 

R5E2U20R5D20G2U20L3R3E2D20R562L5E2R5U2 

0R5D20G2U20L3R3E2D20R5G2L5E2R5U25L25BF 

25BR5U15G2D15E2U15R10U5L5G2R5D3U3E2L5U 

552D5E2U5R10D25L15G2R15E2BH5U5L5D5R5L2 

U3L3BU24BR3E5D5L5G2R5E2' 

5450 ÜRAWBH180, 70S4C7U25G2D25E2R5G2L5 

E2R5U20R5D2062U20L3R3E2D20R5G2L5E2R5U2 

5L15- 

5460 LINE(53,72)-(195,72),3:LINE(52,73 

)-(194,73),10:LINE(51,74)-(193,74),3:L 

INE(5l,73)-(192,75),lf 

5470 COLOR 15:PSET(58,110),4:PRINT»1," 

CREADO POR:" 

5480 PUT SPRITE 20, (150, 105) ,2, 29: PUT 

SPRITE 21, (166, 115), 2,31 

5490 COLOR 9-.PSETÍ42, 160) : PRINTtl , "¿In 

strucciones? (s/n) 

5500 GOSUB 6160:6OTO5580 

5510 CLS: COLOR 1,1, 1: COLOR 11:PSET(8,9 

0) : PRINTtl, ■ , TRANQUILO, DEJAHE CONCENTP 

ARHE! ' 

5520 SPRITES ■ 

5530 FOR N=l TO 43:A$=" 

5540 FOR 1=1 TO 32: READ D: A$=A$+CHR$(D 

):NEXT I 

5550 SPRITE$(N)=A$:NEXT N 
5560 GOSUB 5370 
5570 K$=INPUT$(i) 



5530 IF K$="N" OR K$='n" THEN PUT SPRI 
TE 9, (135,25) ,0: PUT SPRITE 23,(135.25) 

,íiPUT SPRITE 21, HHiÜDrfiNT WttT 

E 21,(166,105),0:GOTO 120 
5590 IF K$='S" OR KI=V THEN 6050 
5600 IF K$=" "THEN 5570 
5610 '■■ DATAS ■■ 

5620 DATA 0,0,0,1,13,15,7,1,1,1,8,24,2 
4,24,28,7,0,0,224,160,240,240,224,192, 
224,128,32,48,24,30,0,0 
5630 DATA 0,0,0,1,13,15,7,1,1,1,12,28, 
56,96,192,128,0,0,224,160,240,240,224, 
193,225,131,62,24,0,0,0,0 
5640 DATA 63,127,255,254,242.240,120,6 
2,30,0,7,7,7,7,7,7,224,240,0,0,0,0,0,* 
,0,0,192,224,240,240,240,240 
5650 DATA 7,7,7,7,7,6,6,12,14,15,0,0,0 
,0,0,0,240,240,240,112,48,48,48,48,56, 
60,0,0,0,0,0,0 

5660 DATA 7, 7, 7, 3, 63, 62, 4B, 32, 0,0, 0,0, 
0,0,0,0,240,240,240,56,28,12,12,14,15, 
0,0,0,0,0,0,0 

5670 DATA 7,7,7,7,7,6,6,12,14,15,0,0,0 
,0,0,0,240,240,248,188,28,56,240,192,9 
6,0,0,0,0,0,0,0 

5680 DATA 0,0,0,1,13,15,7,1,1,1,28,60, 
96,192,0,0,0,0,224,160,240,240,160,129 
,227,134,60,24,0,0,0,0 

5690 DATA 71,239,254,188,24,0,0,0,0,0, 
0,0,0,0,0,0,240,248,29,15,6,4,0,0,0,0, 
0,0,0,0,0,0 

5700 DATA 7,7,3,63,63,55,35,0,0,0,0,0, 
0,0,0,0,240,248,252,158,188,240,120,0, 
0,0,0,0,0,0,0,0 

5710 DATA 0,0,7,5,15,15,7,3,7,1,4,12,2 
4,120,0,0,0,0,0,128,176,240,224.128.12 
8,128,16,24,24,24,56,224 
5720 DATA 0,0,7,5,15,15,7,131,135,193, 
124,24,0,0,0,0,0,0,0,128,176,240,224,1 
28,128,128,48,56,28,6,3,1 
5730 DATA 7,15,0,0,0,0,0,0,0,0,3,15,15 
,15,15,15,252,254,255,127,79,15,30,124 
,120,0,224,224,224,224,224,224 
5740 DATA 15,15,15,14,12,12,12,12,28,6 
0,0,0,0,0,0,0,224,224,224,224,224,96,9 
6,48,112,240,0,0,0,0,0,0 
5750 DATA 15,15,15,28,56,48,48,112,240 
,0,0,0,0,0,0,0,224,224,224,192,252,124 
,12,4,0,0,0,0,0,0,0,0 
5760 DATA 15,15,31,61,56,28,15,3,6,0,0 
,0,0,0,0,0,224,224,224,224,224,96,96,4 
8,112,240,0,0,0,0,0,0 
5770 DATA 0,0,7,5,15,15,5,129,199,97,6 
0,24,0,0,0,0,0,0,0,128,176,240,224,128 
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,129,128,56,60,6,3,0,0 

5780 DATA 15,31.184,210,96.32.0,3,0,0, 

0,0,0,0,0,0,226.247,127,61,25,0,0,0,0, 

0,0,0,0,0,0,0 

5790 DATA 15,31,63,121,61,15,30,0,0,0, 
0,0,0,0,0,0,224,224,192,252,252,236,19 
6,0,0,0,0,0,0,0,0,0 

5800 DATA 0,0,0,0,0,0,0,128,128,132,10 

4,253,253,249,240,0,0,0,0,0,0,0,0,2,3, 

3,3,135,143,207,254,126 

5810 DATA 0,0.0,0,0,192,192,97,113,123 

,51,0,0,0,0,0,0,0,0,0,0,0,48,240.252,2 

44,252,12^,112,48,0,0 

5820 DATA 0,0,0,0,136,220,254,247.223, 

127,255,255,127,63,112,240,0,0,0,0,0,0 

,0,0,0,0,0,0,0,0,0,0 

5830 DATA 3,7,0,0,0,0,0,128,128,132,20 

4,252,248,248,240,0,252,254,127,63,39, 

7,14,124,120,0,0,0,0,0,0,0 

5840 DATA 0,0,3,2,15,207,199,97,119,12 

3,51,0,0,0,0,0,0,0,128,192.216,248,240 

,128,128,128,0,0,0,0,0,0 

5850 DATA 0,0,0,0,0,0,0,0,0,129,195.25 

5,255,255,0,0,0,0,0,0.0,0.0,0,192,192, 

192,192,192,192,0,0 

5860 DATA 0,0,1,3,3,7,7,7,7,3,3,2,1,1, 

0,0,31,116,251,255,17,181,177,181,15!, 

255,119,170,221,255,241,245 

5870 DATA 252,151,111,255,116,117,116, 

119,20,255, 1!<M70,221,255, 11 1,239,0,0 
,192,224,96,240,112,112,112,224,96,160 
,192,192,128,128 

5880 DATA 117.53,55,10,29,15,15,7,5,7, 
0,0,0,0,0,4,2:9,254,118.168,220,218,24 
B, 240, 80, 210, IV. 0,0, 0,16 
5890 DATA 8,0,0.0,32,0,0,255,85,127,10 
6,127,85,127,106,127,16,0,0.0.4,0.0.25 
5,86,254,170,254,86.254,170,254 
'5900 DATA 0,0,0,0,0,0,0,0,0,0,251,170, 
171,170,170,171,11,10,10,10,42,59,0,0, 
0,0,187,170.171,42,42.171 
5910 DATA 187,162,187,138,138,187,0.0. 
0,0,187,170,170,42,42,43,128,128,128.0 

,0,128,0,0,128,128,187,169,187.162.162 
,187 

5920 DATA 0,0,0,0,0,57,107,255,63,11,1 
,0,0,0,0,0,0,0,0,0,0,243,250,255,126,1 
72,208,168,84,10,0,00 

5930 DATA 0,0,0,0,0,57,109,255,63,9,0, 

0,0,0,0,0,0,27,50,108,208.236,255.251, 

252,248,240,0,0,0,0,0 

5940 DATA 0,7, 1,0,0,0,0,0,0,0,0,0,0, :, 

3,31,0,0,192,224,112,112,120,120,120,1 

20,120,112,240.224.192,0 



5950 DATA 0.0. 3. 3!, 127,127, 21°. 2::.::: 
,219,127,127,31,3,0,0,0,0,192,248.254, 

254,219,231,231,219,254,254,248,192,0, 



5960 DATA 3,15,13,30,30,61,63,63,63,63 
,61,30,30,13,15,3,192,240,176,120,120, 
180,252,252,252,252, 180, 120, 120, 176,24 
0,192 

5970 DATA 56,108,252,124,24,24,24,24,2 
4,24,25,27,31,30,12,0,0,0,0,0,0,0,0,0, 
1,1,193,227,243,63,30,0 
5980 DATA 0,0,0,0,0,56,108,252,28,121, 
25,25,11,15,0,0,0,0,0,0,1,1,1,1,225,24 
1,153,185,163,191,28,0 
5990 DATA 31,62,126.254,247,99,64,64,6 
4,0,0,0,0,0,2, 1,248,46. 190,62,231,254, 
124,124,126,56,56.112,120.240,224,192 
6000 DATA 0,3.15,60,121,124,2*55,236,19 
2,67,67,71,47.30,0,0,0,254,156,254,11° 
,76,254,240,240,192,128,128,0,0,0,0 
6010 DATA 0,128,128,200,108,63,57,15,6 
,11,16,32,80,0,0,0,0,1,1.19.51,252.156 
,240,96,208,8,4, 10,0,0,0 
6020 DATA 0,0,0,9,12,31,61,127,231,195 
, 132, 4, 10, 0, 0, 0,0, 0,0, 16, 48. 24e, 188, 25 
4,231,195,33,32,80,0.0.0 
6030 DATA 0,0,2,2,7.4,7,12,12,7.3,:,:, 
7,15,15,0,0,160,160,240.141,240,24,24, 
240,224,96,96,112,120,120 
6040 DATA 0,0, 0,0, 0,3, 3, 3,3.0, 0,0. 0,0, 
0.0,0,0.0,0,0,224.224,224,224,0,0.?,?, 
0,0,0 • 

6050 '■■ INSTRUCCIONES ■■ 
6060 PUT SPRITE 20, (150. 105) .0:PUT SPR 
ITE 21, (166,105),0:PUT SPPITE 23, (135, 
55),0:PUT SPRITE 9, (135, 55), 0 
6070 COLOR 1,11,11: CLS 
6080 DRAWBM56,0 , :PRINTI1."I* INSTRUCC 
IONES ift" 

6090 DRAWBM20,15":PRINT»l,"l.- El obj 
etivo del juego es rescatar una 
figura que se atribuye una virtud 
sobre- naturaHTALISHAN) 
6100 DRAW , BM18,50':PRINTI1,'2.- Se pue 
de utilizar el te- dado h el jo 
ystick. 

3.- Para saltar pulsa el bot 
ón de disparo 6 la barra. 
6110 DRAWB«18,?3":?PINT#1, - Para a 
gacharse tira del joyst:ck nací 

a abajo. 

5.- Aterriza suaveaerte dor.d 
e te indica la est-ella in- 
termitente. 



6120 DRAH"BH18,150VPINTI!."i.- Aden* 
rate en la isla y 1 SUERTE i 

6130 FOR 1=0 TO 17000: NEXT ! 
6140 CLS: COLOR 1,1,1:6070 120 
6150 DEFUSR=&H41: A=USR (0) : RETURN 
6160 DEFUSR=iH44: A=USF;(0) ¡RETURN 
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TEST DE LISTADO: 



Para utilizar el Test de Listados 
que ofrecemos al final de oada 
programa, recordamos que pre- 
viamente hay que cargar en el or- 
denador el Programa correspon- 
diente aparecido en nuestro nú- 
mero 10, de octubre pág. 29. 



10 - 58 
20 - 58 
30 - 58 
40 - 58 
50 - 58 
60 - 58 
70 - 58 
80 - 58 
90 -231 
100 - 58 
110 - 58 
120 -119 
130 - 23 
140 -109 
150 - 46 
160 -231 
170 -249 
180 - 43 
190 -186 
200 -199 
210 - 11 
220 -120 
230 - 71 
240 -195 
250 - 84 
260 -164 
270 - 2 



280 - 25 
290 -103 
300 - 95 
310 - 1 
320 - 49 
330 -178 
340 -175 
350 - 18 
360 - 33 
370 - 60 
380 -249 
390 -224 
400 -166 
410 - 85 
420 - 71 
430 -158 
440 -192 
450 -202 
460 - 3 
470 -195 
480 -250 
490 -200 
500 -206 
510 - 17 
520 -183 
530 - 58 
540 - 23 



550 -106 820 

560 -151 830 

570 - 21 840 

580 -178 850 

590 -194 860 

600 -184 870 

610 -122 880 

620 - 76 890 

630 - 46 900 

640 -231 910 

650 -249 920 

660 -148 930 

670 - 58 940 

680 -217 950 

690 -221 960 

700 - 42 970 
710 - 66 
720 - 92 

730-81 1000 

740 -209 1010 

750 -148 1020 

760 - 58 1030 

770 -218 1040 

780 -202 1050 

790 - 6 1060 

800 - 53 1070 
810 -117 



980 
990 



- 86 
-209 
-148 

- 58 
-219 
-147 
-203 
-252 

- 54 

- 91 
-209 
-148 

- 58 
-220 
-212 

- 96 
-209 
-148 

- 58 
-221 
-163 
-101 
-209 
-148 

- 58 
-222 
-182 




10°0 


- 66 


1630 


-227 


2170 


ilí 
























4560 


- 13 


5100 


-105 


5640 


- 82 


1100 


-151 


1640 


-201 


2180 


-223 
























4570 


-102 


5110 


-210 


5650 


-156 


1110 


-209 


1650 


-209 


2190 


- 88 
























4580 


- 8 


5120 


-142 


5660 


- 74 


1120 


-148 


1660 


-107 


2200 


-172 
























4590 


-223 


5130 


- 5B 


5670 


-214 


1130 


- 59 


1670 


- 58 


2210 -135 
























4600 


-142 


5140 


-106 


5680 


- 21 


1140 


-223 


16B0 


-228 


2220 -130 
























4610 


- 58 


5150 


-187 


5690 


-223 


1150 


-224 


1690 


-216 


2230 


- 91 
























4620 


-213 


5160 


-243 


5700 


-178 


1160 


-202 


1700 


-209 


2240 


-142 
























4630 


-118 


5170 


- 39 


5710 


-150 


1170 


-111 


1710 


-107 


2250 


-193 
























4640 


-197 


5180 


-201 


5720 


-210 


1180 


-151 


1720 


- 58 


2260 


-245 
























4650 


- 27 


5190 


-236 


5730 


-179 


1190 


-161 


1730 


-229 


2270 


- 40 
























4660 


-224 


5200 


-237 


5740 


-119 


1200 
1210 


- 50 

-114 


1740 
1750 
1760 


-226 
-209 


2280 
2290 
2300 


-101 

- 53 

- 58 


















^^^^ 






4670 
4680 
4690 


-227 
-193 
-204 


5210 
5220 


-185 
-169 
-240 


5750 

5760 
5770 


-220 
-239 
- 66 


1220 


-209 


-107 
























5230 


1230 


-152 


1770 
1780 


- 58 
-230 


2310 
2320 


-167 
-236 
























4^00 
4710 


- 39 
-204 


5240 
5250 


-179 
-209 


5780 
5790 


- 56 
-104 


1240 


- 58 
























1250 


-224 


1790 


-236 


2330 


-170 
























4720 


-194 


5260 


-137 




- 59 
























5800 


1260 


- 6 


1800 


-209 


2340 


-251 


2710 


-142 


3080 


- 4 


3450 


- 58 


7820 


-142 


4190 


-237 


4730 


- 45 


5270 


-168 


5810 


-210 


1270 


- 92 


1310 


-107 


2350 


-149 


2720 


- 14 


3090 


-142 


3460 


- 92 


3830 


- 58 


4200 


-185 


4740 


-221 


5280 


-198 


5820 


-148 


1280 


-226 


1820 


- 58 


2360 


-237 


2730 


-118 


3100 


-161 


3470 


-236 


3840 


- 90 


4210 


-168 


4750 


- 0 


5290 


- 22 


5830 


-232 


1290 -215 


1830 


-231 


2370 


-185 


2740 -241 


3110 


- 34 


3480 


-170 


3850 


-144 


4220 


- 82 


4760 


-209 


5300 


- 68 


5840 


-139 


1300 


-124 


1840 


-246 


2380 


-168 


2750 


- 73 


"120 


- 38 


3490 


-125 


3B60 


- 30 


4230 


-19 


B 
0 


4770 


- 48 


5310 


-162 


5850 


-127 


1310 


-209 


1850 


-209 


2390 


- 82 


2760 


-227 


3130 


- 42 


3500 


-210 


3870 


-236 


4240 


-130 


4780 


- 96 


5320 


- 58 


5860 


- 60 


1320 


-152 


1860 


-107 


2400 -202 


2770 


-142 


3140 


-254 


3510 


-237 


3880 


-190 


4250 


-240 


4790 


-107 


5330 


-243 


5870 


-143 




- í 0 

So 


1870 


- 58 


2410 


- 7 


2780 


- 10 


3150 


- 87 


3520 


-185 


3890 


- 70 


4260 


-224 


4600 


-231 


5340 


-199 


5880 


-208 


1340 


-223 


1880 


-232 


2420 


- 68 


2790 


-118 


3160 


- 85 


3530 


-168 


3900 


-198 


4270 


-204 


4810 


- 49 


5350 


-107 


5890 


- 16 


1350 


-152 


1890 


- 41 


2430 


-130 


2800 


-241 


3170 


- 92 


3540 


- 82 


3910 


-207 


4280 


-195 


4820 


-193 


5360 


-142 


5900 


-153 


1360 


-157 


1900 


- 0 


2440 


-211 


2810 


- 75 


3180 


- 4 


3550 


-255 


3920 


-176 


4290 




2 




-2H 


5370 


- 58 


5910 


- 96 


1370 


-226 


1910 


-209 


2450 


- 36 


2820 


-231 


3190 


-142 


3560 


-240 


3930 


- 20 


4300 


-185 


4840 


- 43 


5380 


-225 


5920 


-217 


1380 


-215 


1920 -107 


2460 


-138 


2830 


-142 


3200 


- 58 


3570 


-204 


3940 


-124 


4310 


- 87 


4850 -204 


5390 


-250 


5930 


-236 


1390 


-138 


1930 


- 58 


2470 


-240 


2840 


- 82 


3210 


- 86 


3580 


- 74 


3950 


- 49 


4320 


-168 


4860 


-194 


5400 


- 22 


5940 


- 65 


1400 


-209 


1940 


-233 


2480 


-254 


2850 


-118 


3220 


-144 


3590 


- 2 


3960 


- 49 


4330 


-203 


4870 


- 49 


5410 


-146 


5950 


-150 


1410 


- 32 


1950 


- 15 


2490 


-204 


2860 


-120 


3230 


-105 


3600 


-185 


3970 


- 2 


4340 


-130 


4380 


-221 


5420 


- 10 


5960 


- 82 


1420 


- 58 


1960 


- 81 


2500 


-149 


2870 


- 18 


3240 


-236 


3610 


- 87 


3980 


- 13 


4350 


-241 


4890 


- 7i 


5430 


-207 


5970 


- 73 


1430 


-224 


1970 


-101 


2510 


- 2 


2880 


- 75 


3250 


- 60 


3620 


-168 


3990 


-134 


4360 


-224 


4°00 


-209 


5440 


- 22 


5980 


- 19 


1440 


-156 


1980 


-209 


2520 


-185 


2890 


- 75 


3260 


- 70 


3630 


-255 


4000 


-218 


4370 


-204 


4910 


- 48 


5450 


-182 


5990 


- 65 


1450 


-233 


1990 


-107 


2530 


- B7 


2900 


- 4 


3270 


-255 


3640 


-24Í 


4010 


-1B1 


4380 


-195 


4920 


- 96 


5460 


- 52 


6000 


-216 


1460 


-226 


2000 


- 58 


2540 


-168 


2910 


-142 


3280 


- 31 


3650 


-204 


4020 


-176 


4390 


- 58 


4930 


-107 


5470 


-164 


6010 


-150 


1470 


- 73 


2010 


-125 


2550 


-202 


2920 


-85 


3290 


- 49 


3660 


- 74 


4030 


-100 


4400 


-124 


4940 


-231 


5480 


- 64 


6020 


-141 


1480 


•-209 


2020 


-144 


2560 


- 7 


2930 


-118 


3300 


-184 


3670 


- 58 


4040 


-191 


4410 


-118 


4950 


- 49 


5490 


- 55 


6030 


-188 


1490 


- 32 


2030 


-241 


2570 


- 68 


2940 


-120 


3310 


-137 


3680 


- 49 


4050 


- 27 


4420 


- 13 


4960 


- 27 


5500 


-117 


6040 


-132 


1500 


- 58 


2040 -236 


2580 


-130 


2950 


- 14 


3320 


-148 


3690 


- 13 


4060 


-118 


4430 


-118 


4970 


- 4 


5510 


-128 


6050 


- 58 


1510 


-225 


2050 


-175 


2590 


-211 


2960 


- 72 


3330 


- 13 


3700 


-118 


4070 


-179 


4440 


-243 


4980 


- 77 


5520 


- 58 


6060 


-183 


1S20 


- 67 


2060 


- 70 


2600 


- 36 


2970 


- 78 


3340 


- 97 


3710 


-255 


4080 


-241 


4450 


- 72 


4990 


-215 


5530 


-182 


6070 
6080 


- 52 


1530 


-171 


2070 


-202 


2610 


-138 


2980 


- 0 


3350 


-60 


372f 


■ n 


4090 


- 56 


4460 


-223 


5000 


- 71 


5540 


-205 


-205 


1540 


-209 


2080 


- 7 


2620 


-241 


2990 


-142 




07 


T77fl 

0 . V 




ai M 

Mi 


10/ 




-142 


5010 


-220 


ccc /t 
JJJV 


i - - 


6090 


- 3 


1550 


- 32 


2090 


- 68 


2630 


-204 


3000 


-145 


3370 


- 90 


3740 


-142 


4110 


- 3 


4480 


- 86 


5020 


-242 


5560 


-169 


6100 


-199 


1560 


- 58 


2100 


-130 


2640 


-149 


3010 


-118 


o380 


- 55 


3750 


- 86 


4120 


- 58 


4490 


-118 


5030 


-215 


5570 


-106 


6110 


- 0 


1570 


-226 


2110 


-211 


2650 


- 58 


3020 


- 35 


3390 


- 92 


3760 


-118 


4130 


- 58 


4500 


-120 


5040 


- 89 


5580 


- 32 


6120 


-155 


1580 


-205 


2120 


- 36 


2660 


- 9 


3030 


- 37 


3400 


-173 


3770 


-120 


4140 


-213 


4510 


- 22 


5050 


-107 


5590 


- 45 


6130 


-112 


1590 


-186 


2130 -138 


2670 


-118 


3040 


-170 


3410 


-235 


3780 


- 46 


4150 


-236 


4520 


- 71 


5060 -231 


5600 


-236 


6140 


-109 


1600 


-209 


2140 


-250 


2680 


-241 


3050 


- 78 


3420 


- 40 


3790 


- 69 


4160 


-170 


4530 


- 78 


5070 


- 49 


5610 


- 58 


6150 


-176 


1610 


- 32 


2150 


- 49 


2690 


- 66 


3060 


- 79 


3430 


- 16 


zm 


- 77 


4170 


- 40 


4540 


-223 


5080 


- 58 


5620 


- 84 


6160 -179 
TOTAL: 
81064 


1620 


- 58 


2160 


- 3 


2700 


-223 


3070 


- 74 


3440 


-142 


3810 


-223 


4180 


-144 


4550 


-142 


5090 


- 69 


5630 


-183 
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Programa de juego realizado 
por Potro Marti» CiuM 

¡ión del golf para ordenador podréis simular a Ballesteros desde vuestra 

ones, palos, etc. 




11 mtmmmmm 

20 '* t 
31 ■! 5 0 L F t 
4f '1 I 
50 '! POR I 

Bf 'I t 
7? t P *WIH CIUDAD t 
8? '! t 
H mtmmmtmt* 
:n pe* instrucicnes * 

110 KEYOf F j COLQR 15, 12: SCPEEN6»: WIDTH3? 
:L2CC T E13,P:-P!NT'F0RHfl DE JUEG0':PRIN 
hmtfí* E 5tl - 95 un jue53 re i aja d c 

, ;erc diintili|incii, in el cual 
pairas aprueba tu precisitn. 
•21 PFIUTlPMUT' Antes de -«alizar c 
acá 30! Di de bol atendrás jue elegir e 
! pilo con el cuaivas a cclpea', puest 
o cui -«da uno esvali:": :a r a una di s 
tar.eia dftl«.iimdl yen ella juigi ádem 
is la iliitoriidadi 

i!0 PPIVT.pR'lNT" Junte con el palo te 
nd'as que decidirla di rece: ir . siendo 
esta el ángulo quefona la bola con el 
HOYO. Considerandoque la bola esta sn 
e! centro de lascoordenadas y el h 
ova el otro punto. 

:*0 PR!NT:PRINT' Para que te sea ais f 
icíl, copia en unpapel la pantalla si; 
aitfltl lientras tefaniliarizas con los 
tinentos de juegobasados en el juego 
'eal.':l0r,ATE26,22:PRINT' PULSA RETURN 

i 

151 0PEN"6RP: "AStl : OEFSTRZ 
161 :«!NKEy«:rF7«""THEN16f 

170 F*«'D2FD4U4EU2D2FD4RU4EU2D2F04U4EU 
2" 

180 COLOR 15,l,l:SCREEN2:X=50 
:°9 r ORI=lTO13:READL't:PSET(X,0),l 
280 WIHTil, III: 60SUB85» : t*tH2i NEXT 
2ÍI p SETf4,r6):PRINTIl,'PAL0=íuerza , :Y 
=31 

221 F0R!=1T012:READU$:PSET(12,Y),1 
::t PR I W T t l , ut : 60SUB8SÍ : Y« Y* 1 • : MEXT 



241 PSET ( 1 2fl v 1 6 » v 1 s PRINTt 1 v - ANSULO'di r 
e:ci in 

2ÍI LI«íl50,B0)-(200,80),:5iBEEP 

2éf LIICl!'78 f S5)-.(17S|tfS).S5r9EEP 
271 l!K<!SS,MHm,lff1,&ISff 
2=0 LXNEC185 9 lMI-fl98»-é0).!5:BSP 
2 o ? P8ET(2f<,74).::PRJHTIl,' , fM":BEEP 
Til D 8ET(!?c,5fc5,l:PRIIiT#:.'t*S':BEEP 
3 : 1 PSE* í 145, 43! , ! : PRIN T I 1 . ' ??0« ¡ BEE° 

::? 5 se t !13^!¿m:Pr:nt«:,':t5':peep 
330 pset!127,76),!:pr1nti1, h 180':8eep 

340 PSE T (132, 96) , l:PRINTt!,'22!'sBEEP 

350 PSET (163, 10?) , 1 : PRINTtl , '270" : BEEP 

36? PSET(199,96),1:PRINTI1,'315':BEEP 

370 PSET (0, 152), l: PRINTtl, 'AN6UL0S er: 

eros desde 000 hasta 

380 PSET(0,l62),l:PPINTtl,'359 (TRES C 

- TC FAS) y la DISTANCIA 

3?0 PSETIf,172),l:PFINTIi, , (M8 CIARAS 

). 

400 P SE T (20, 133) ¡PRINTtl, "PARA SEGUIR 
PULSA UVA TECLA" 
410 Z=INP'JTI(1) 

420 DATAI,N,S,T,R,U,C,C,I,0.N.E.S.«1 2 
80, 250, «3 220, W4 190 
m DA7AI3 170,14 160,15 150,16 140,17 
130,18 120,1? 113 
440 MTAPN 0 a °9 y SI 0 a 50- 
450 PE« TOMA 9E DATQS 
460 CL0SE:aPEN a 6RP:"A81:COL0R15 v ?.2:SC 
REEN2:X--0;Y=0: C SE T (?,0),2 

SPRINT!!," m n 1 n 



480 PüXHTtlv" I 
490 PRNTH, " | 



111 r 
111 11 



500 PRiNTii," miii r 

510 PRINTtl," I | | | | I 
520 PRINTI1,' ■ ■ IR I a 
530 GOSUB900:PSET(48,B0),2 
540 PRINTtl, 'Cuantos JUGADORES' 
550 PSET(96,96),2:PRINTIl,'l o 2" 
560 COLOR l:Z=INPUTl(l):NP=VAL(Z) 
570 IFNP<1ORNP>2THEN560 




580 PSET(150,96),2:PRINTI1,NP 

5°0 COLOR 15:PSET(16,120) 

600 PRINTtl, "NIVEL de juego de 0 a 0" 

613 >SET(64, 136), 2:PRINTI!, 'Jugador P 

620 Z=INPUT$(1):J1=VAL(Z):IFJP9THEN6: 

0 

630 COLOR 1:PSET(152,136),2:?RINTI!,J! 
640 COLOR l5:IFNP»tTHEM2«ílr60TO 680 
650 PSET(64, 148), 2:PRINTI1, "Jugador 2" 
660 Z=INPUT$ (1)1 J2=VAL (Z) : IFJ2>?THEN66 
0 

670 COLOR l :PSET( 152, 14B) , 2: PF INTil . J2 
680 COLOR 15:PSET(16,176),2 
690 IFJW2THEN730 

700 L :C=ABS(J!-J2! :H0=l: IFJ2>JlTHENH0=2 
710 P"INTtl,HC"VENTAJAS el jugador *N9l 
SOSUB960 

720 C E». JUE50 EN EL CAKPO 
7!S GQSUB1Ó40 

740 L!«E(i,0)-(2SS,a),l,BF:LlN£(0.:5¿¡ 

-(255, 191),:, BF 

750 IF«P* 1THENP5 (2) *2 

760 PSET(14,0):PRINTtl.'HCYO "N" W ' 

Qj YA" YARDAS" 

770 F0RP=1T0N D :X(?)=X:Y(P)=Y 

780 PUTSPRI7E?,a,Y),6,>:NEXT 

790 P*HN¡ IFtIP- 1 THENP*! 

800 IFHC>=NTHENP=H0:G0T0 830 

910 SOSL'31í70:!FPG(l)>0THEN!>=2 

820 IFPGC);?0RNP=1THENP=! 

830 eCSL l B8E0:EOSL'Bl060 

840 HSCP)*H8:F>M: IF£«1THEM2490ELSE5O t 

C 810 

850 BEEP¡ c 0fiJ=!T02:, NEXT: RETURN 



i m m m m m & i 




oonr OQi~\QC 

I I\UÜKJ U II l-i 



860 FORI-Í T0600:NEXT: RETURN 

870 PSEK72. 183) :RETURN 

880 LINE(0,!!6)-(255,191),l.BF : i¡ETL' 3 N 

890 REM DATOS DEL JUEGO 

°00 RESTORE»30:FORI*lTO8iREAI>A! 

910 S««St*€HRl(VAL('W**AI»):NEXT 

°20 SPRITEI ! ! I =S<: SPRITEí O =S<: C =RM ( 

-Tir*E) 

93í mmmm, 00000000. 0001 1000 
°40 data00!:::00, 0011HI0, 00011000 

950 DATA00000000, 00000000 
960 DATA*":era del CaapoVEn e! Pscor 
rido'.'En il VERDE', "En las hierbas al 
tasVEn les Arboles","En el Agua", "En 
la ArtniVFuiri del VERDE", "Er. el HO 
YO" 

970 d: v :í , :: , .p$(8) ! s6(9,2) 

980 F0F;I=l T C4:C«(I)='k"+R!GHT«(STRf (I) 

, 1> :NEXT:PI=ñT^C) t4:PO=PI/180 

990 F0P.I=3T0! I : C$ ( I ) = ■ I -+RI5HT* • STRt f I 

-2),l):HN=i:F=.5 

1000 «EIT:CI«12J« , WI , {C*(lJ)« , 8r 
1010 r !)Rh?T08:READR*!I):NEXT:FE T, _ :i: N 

1020 m ::fu;c del verde 

1030 L:nEXH-10,YH-S0)-(XH<9.YK*?M2. 
BF: PSETí XH, YH¡ , ISrPSET <XH-5 f YH+9) . 15: D 
RAM'Ul 7R2FRFRFRW.5L5LGL" s PAINT ( XH, YM 
1,13 

1040 RETU-N T ¿0 

¡050 RE!' TCA DE DA t ÜS V JUEGO E\' ÜAKP 
0 

1060 ?SE"eé,;57!,t:RRINTIl,"JUSA.::="c 

1070 PSE7 f 4 , 17?> s PRINTi 1 , •PAÜO- 

1080 FSE"f¿¿,17:),l:Z=!NPljT$(t);P-;N T í 

I, Z;:A$=Z:Z=INPUT$(i: ; PRINTIl.Z::--fi!*Z 
:G=0:FQ»I=:TO13 

10?0 !rZ=Cí'¡;7KtNE--l:C=I:I = 14 

1100 ■nEKT;:P5=0THENLINE(4¿.17:)^¿¿,:í 

3),r,BF¡60Tfl 1080 

1110 IFO11THEN6OSUB1520:GOTO1160 

1120 DD=(13-C+9)tl0 

1130 IFC<5THENDD=DD+(4-C)l20M0 

1140 D=S6N(RND(l)-F)t(RND(l)tlB»DD/100 

)+DD-R0(P) 

1150 PSET (68, 173) :PRINTI1 , "Distan. "DD 
1160 PSET (163, 173) , l:PRINTtl, "Angulo" 
1170 Z=INPUT$(!):PSET(220,173),1:P°INT 

I I , Z ; : A$=Z: Z=INPUT$ ( 1 ) : PRINT1 1 , Z ; : A*=A 
l*Z:Z»IHPUTMH :PRINTtl,2?2*&«*2 

1 180 AA=VAL(Z) : IFAA>359THENLINE(2! 1.17 
3)-(255,lB3),i,BF:50T0 1170 
1190 A=AA A SEN(RND'P-F) t ( RND ( 1 ) 16+RQ í P 
)t.l7):RO(P)=0:5=f 
1200 X=INT(Dt.54tC0S(AIPD!):X=X+X(P) 



1210 Y=INT(DM5<SIN(A»PD))*(-t):Y=Y* v 
(P) 

1 220 IFKCPI «11 THENIFC< V 1 3ORRN0 ( l ) > . ?TH 
ENX=X(P):Y=Y(P) 

1230 IFX<0THEN*=0:G='.ELSE!Fn2527HENi; = 
252:6=1 

1240 IFY<5THENY=5:G=iELSE!FYM52 T HEUY-- 
150:6=1 

1250 IFS" 1THENG0SUB 1 360: GGSUB870: Pfi ! M? 

tl,Rí(0):GOSUB860:RETURN 

1260 IFXM=XHAND v *a=YH!HENGCSU6i:.6f:5G 

5üBfl7lsFRimi,RÍt8):P6(PJ«2tIFRB(lWP 

6 (2) >2THENE=! : RETURNELSEPET'JRN 

1270 IFX*4>XH-!1ANDX^<XH*1!THENIFYM> 

YH-1 1 ANDY+4< YH* 1 1 THEN60SUB 1360: G05L'B87 

0:PRINTI1,R1(2):GOSUB860:PG!P)=1:IFP6( 

1 ) +PG (2) «1THENRETURNELSEE» l : RET'JRN 
1280 K(P)=POINT(X+4,Y*4):ECSUP!360:EQS 
UB870 

1290 IFK(P)=3THENFRINT«1,R$(3):R0(P , =R 

ND(l)>40/100iD:GOTO 1340 

1300 IFK (?) =2THENPR INTI 1 , Rí ( 1 ) ¡ GOTO 134 

0 

1316 IFK (P) =7THENPR iNTll . R1 (5) : GOSUB! 6 
10:GOTO1340 

1320 IFK(P)«llTHSÍIPRINTIURIÍAJi60T013 
40 

1330 IFK(P)si20RK(P'st*THEHfW1NT|t l Ff1 

4):GOTO1340 

1340 6OSUB860! RETURN 

1350 REM NOWHIBHTQ DE LA PELOTA 

1360 IFP=1THENH=!5ELSEH=! 

1370 IF6»IAHDE»0THEM!420 

1380 GOSUB3130:PUT5P c ITEF.;v,v :iiJ ,: 

1390 X(P)=X:Y(PUY 
1400 RETURN 

1410 REM COMPROBAR SI VERDE 

1420 IFX+4>XH-11ANDX*4<XHM1THEN!FY*4' 

VH-UANDYM^Vh < *llTHEN1430ELSE1380ELSE; 

380 

1430 IFX>100 T HENX=X-20 

1440 IFX<100;HEVYrí*20 

1450 GOTO 13Ef 

1460 REI PROBIDAD 

1470 IFNP=1THENPE T 'JFN 

1480 F0RI=1TC2:S(I)=SGR(ABS((XH-X(l)r 

2) *ABS((YH-Y(I)5*2)):NEXT 
1490 P=2:IFS!1)^=S(2)THENP=1 
1500 RETURN 

1510 REN DISTANCIAS CORTAS 
1520 PSET(68,1T3):PRINTI1. "Distan. 8 :PS 
ET ( 1 32 , 1 73 \ ! : 7 = I NPUTí ( 1 ) : D=VAL ( Z ) : PR I 
NT!1,Z:PSET'1«0, 1731.1 
1530 Z=INPU7í'!):D=DÍi0+VAL(Z):PR!N t é1 















,1 

1540 X2<="Man.io PW=99. 81*30" 

1550 PSET (68, 1835,1 

1560 IFC«i3ANDa>50THEM1570ELSERETORN 

1570 PRINTt:,X2<:GOSUB860 

1580 LINE(6e,173)-(255,191)..l,3F 

1590 GOTO 1520 

1600 REM AGUA 

1610 FORI=1TO500:NEXT:X=X-1:Y=Y-1:GO3U 

B322í:PÜTSPR!"EP,(X,Y),H,P:K(P)«P0INTí 

IH, Y*« s !FK (P) «7THEN1610EISEX (P J*X: Y < 

P) =Y: HS(P)=KS(P) + 1 : RETURN 

1620 RSÍP)«HS(PHliRETURN 

1630 REM DIBUJO DE HOYOS 

1640 H«H*líC0L0fl l5 ( l,liSCREEN2:LINE(0 

,9)-(255,156).12 ! BF 

1650 ONNGOTO 1570,1790,1880,1940,2050, 

2130.2200,2280.2350 

1660 REM HOYO '. 

1670 COLOR ,1,1:CLS:LINE(0,9)-(255,156 
),2,9F:DRA«"Bfl3, , 'C:2F2DR2F3R2ER2F2RE'J 
2ER2F3D2F2R2 r 3D2F3R2 r R2FF;3FR4F2R3F3R2F 
4RF3R2F2R3FR4FR2FR3ERERE2RE2R2F3D3FF2F 
R4E2R2ER5F3RF2RFR2FRSF4RFR3FR2E3U8ER2E 
3U3E2R2E3R2EÜ¿ER2E2!J4E'J3EU3E2R2E3L 174" 
:PAINT(15,10!,I2 

1680 DRAti"BM0,6°R3ER2ER3ERER4FR2FPFR2F 

RF7D2FD2FD2FD3F2R2FR3FR2FR3 C 3F18RER2E3 

R2FR4FR3FR4FRD3FP2F2R4ER3E3R2ER4E3R2EF 

6F3R4F2R3ER3ER3ER2FR4E3R2ERE2RE3R5E2RE 

2R3ER2ER3E6R2EP6ER3ER2E5" 

1690 DRAH"U7E7L'4EU5E3R3E2F:3EP5E2R7D103 

L255U86':PAINT(250 ( 155),12 

1700 DRAW"BM55,?7C7D3FÜ4FD5G3LG2D3FR4F 

2R5ER4E2U3E2RER2E3R2FR6ER3ER4E3R2E2RER 

2E2U4E2R2E3U4EU2E2U3H3L2HL4HL6H2L2H1L2 

HL3GL2G3L2GL2G2L3GL7HL2HL3HLG3D3GD3G2D 
5FD6L2R4":PAINT(58,97),7 

1710 GOSUB2420 

1720 DRAM"BM167,85C11R9E3U3E2R6E2U22H2 
L4GL4D2L3G2L3G3D25E": PAINT ( 1 69, 63) . 1 1 
1730 DRAH"BH1?2.20C11R2F2R9ER6FD4FD3FD 
8G2D2GL2GL4GL5H3U4E2U5HU3H3 , J3E2U2":PAI 
NT(200.30),11 

1740 LINE(223,9)-(243,29),12,BF;DPAW"B 
M226,28C15U17R2D7LU6R3D5LLMR3D3LU2R3DL 
BM233,19C15D" 

1750 C0L0R3: PSET (50, 68) : DRAWFJ: PSETÍ 12 
0, 95) : DRAWFS: PSET U35 t 82) : DRAWF$: PSET í 
150, 62) : DRAWFi: PSET (206. 70) i DRAWFt: PSE 
T(220,50):DRAHF$ 

1760 XH=233:YH=19:Q=4:YA=477:HN=1 
1770 X=2:Y=10:6OSUB1030 
1780 REM HOYO 2 




•••••• t 



DO>~n~ OQi~iQC 

i ts üuKi n ii i-i 




1790 DRAW-BM0, 135C2RE5RE7UEUEU2EU2EU2E 
U4EU3EÜ7EU28HU3HU2HU2HU2HU3EÜ2E5RERE2F 
E3RER2EK2ER2ER18FR1!ER:ERERE' : '3EF'3FP2F2 
R2FR3FR5FP.5ER3ER2ER2EP, 1 BFR16FR6ER5F3RF 
RFR2ERE3RERER12ER3FR5FR4EP3ER4EPER9ERE 
R2ER4FRFRFD8GD4G5ÜG5!)2F!)F2DFPFRFP2F2D2 
GL4G2D2" 

1800 DPAW u GD5F02FD2FD6FD3FD3FD [r 3DF2DF 7 
BM,156R28U3EU2EUEU3EU3E2RERE2RE!1UE2U 
E2UEUE3UE5R2FRFR2EF:3E2REFEF2ER ( >FP3FRFP 

FR14ER2ER2ER2ER2ERER9FR2FR2FRFR2FR9ERE 
RERERERE2RFRFRF3f3&4F45R4IU46":PAINT(9 
0,50), 2 

1B10 DRAH"Bt1131,9C7D4F3DFD2 c D4FD2FSRFR 
FDFDFD3FD4F3D2FD2F10D2FD4FD6FRFRF3RFD2 
FD4F3R2FDF4D3GLGLGL3HL2HLHLHL3G4D2GDFD 
2FDF26DGDGDFDF4DFD3GD3F2R3FR4FR2F3R2FR 
4ER2FR2FR2FR6FR5ER3E2RE2PE'JE , J6H2U9HU4H 
Ü4H2LHU3HLH2LHLH2L2HL5H2U3H1 1U3H5LHU2H 
LHL3H3U2HLHU2EU4" 

¡820 DRAW"E2U6E8U2E3REieEL'2EU:Eü5HUH , JH 

3L7F6D5G4D2S4L2G4D3G3D3G¿D2GD2G5H3'J6HU 

3K3U3H5U2H4U2H5U7H2U2L9" IPAINU22Í, '.30 

),7:LINE(180.98)-(220,102),2.?F:L!VE't 

50,73)-(220,77),2.BF 

1830 GOSUB2420 

1840 DRAK"BM140,72C! IEF3 C R¿F4D7F3D4F3G 
5L7H3L3H5U4E3U2EU2H2U3B«240,90D 7 FRFD46 
214H13HU3E3U3H3L3H3U3H2U4E3R5ER2P3DIÍF 
2":PAINTM4i f 72),ll:PAINT(238,90),ll 
1850 COLOR3:PSET(40,40):D( : A«F1:PSET(60 
, 42) : DRAWFi: PSET (78, 38) : DRAWFi: PSET (30 
,35)¡DRAWF<:PSET(47.53):DFA¥Fí:PSET(72 
, 57) : DRAWFt : PSET (224 , ífl) ¡ DRAWF*: PSET (2 
15,58) :DRANF$;PSET(200, 48) :DRAHFt 
1860 XH=245:YH=146:Q=5:YA=4e2:](=10:Y=l 
45:GOSUB1030 
1870 REM HOYO 3 

1880 DRA«"B«25., 33C2E3 c 2E*7FRF5RFDFD r D' : 
R r 5R2FR9ER9FRFR2FR3 i: R5ERieFR2FR5FP9SP5 
ER4ER4ER3ER6FR8 r F { ?E c 3cF2ER2ER2ER3ER2EP 
4E"R4ER4ER9FR4FRíFF 1 2 r R c FFPJ5D6G02cDGD25 
D4FD2FDFDFRF6RFRFFD f ÜFD2G2L2SL4SL2GjDG 



2D4FDFDFD5L2GL454DE5LGL4HLH6L4GL2GL36L 
4HL2HLH3" 

1891 0RAH , LU3HU6KU2HLHLH2UH I J4HU2HUHU2H 

UH , JH2L3GLGLG7DGD6DGDG0GD5D2GDGDGDGDGDG 

DGD520G2DGBLGL25LGL!'3L6HLHLH2LHLHLH2LH 

L35l2SL2E-4L2GLGl5L2GL3SL3GL4GI.5GL5Gt6G 

L6HL5HL3HL2H1H3 , JH , J9E I J8« , JH3LHUEU5HIJ4EÜE 

L , EUE15U2EU2EL , 4HÜ7E4 , J3E : J3HL , 3HUHU2HU2HU5 

•:PAINT(50,5«),2 

!"00 GOSUB2420 

1910 DRAW"BH18" ! 54C!lEUERER2ER3EP4ERi c 
j"D2"D3GD5GL25L7Hl.¿-L:Hl'2HL , 4BH210,9BL | 4 
E'. ! 3E7F3ER-2FDFÜ4PD73 r ::G¿L4GL2HU3HL , ¿E:ü 
:':^:VT(190,56),i:: r '2:N r !210,100),ll: 
CIRCLE ( 185, 95) , 12, i i„ , . 7:,°AINT ( 185, ?! 
> j 1 1 s CI RCLE í 1 1 f , M 5 1 , 1 S , 7, , , 1 . 2 : PAINT ( 
ltí,li5),7 

1920 XH«223:YH«68:g=3:YA*36B:X=15:Y=l! 

8:60SUBlf3f 

1931 RE* HOYO 4 

1°*0 COLOR , 1, ltCLStLIllElf r n-C2S5,156 
),2.BF 

1951 DRAWFH187,'C7L131FPF3D2F0FDF3D C D 
r 4DF5RF9DFD2 p D2FDF22F 9 R r5 , r 4F:r3RF"2FDFü 
FP*RER*ER5F4PFRE c EF.E'JE-EPE3U2EF.Eir , jEI ! .' 
E9EUE2UEU6E3üE0?EL f 3KU3E J JElf*sPAlirr(7f l 

10), 7 

t94i drah'BM,?2C!2E4FE2?E2UE3RE2RE3R2 

FR*S*3Rr2R4FRFRFDFD e ;) ? D c B2F55n)?FD?FDF 

c':0" : "4^5f c :e : :e : :e : e c er:erefere 7 c 
ep3?r3f*3fr2fr2fr6f5*fcrf!¡frfr2frfrfrf 

R6ER9ERERERE3UEUEU2EUE , JE2R2ERERER3ER4E 
3 5E?2E3L , EU2HL , :EUE , JEc-J:E,'E , J¿E , J6EUE2RER3 
E=3EP4EC!0ER2ER3' 

:= 7 0 LüiEff.lSél-frfS^S^^^iPAINTtS, 
90), 12 

:°90 GCSUB2420 

•991 WAM , BH133,11BC11E?F3R2EUEU2EU3ER 
í c, F8F4D<G02GDGL8SL8H!.íHU2HL3HU3Bf1!55 
,'7BE!!R4FR3FD3G4D3cL L < , L , 2 l Jl2&C4GD3G3l2GL 
"H3ü5W188,23E5R4FíB6Fa96D14ELH6üílH4U 
9P-211,70E3R2EU5E!R1? C 4DGL7G3L12GD5SD5 
c , -JHL2Hü4HU2" 

20?0 PAINT ( 133, 122> , 1 1 j PAIHT C 156,78),! 
1:PAIVT(198, 23), 11 : D A!NT'212, 701,11 
2010 COICR3:PSET(40.65}:DFAWF$:PSE T !60 
P 3tí;DRAHF$:PSET(A5,lf5):BRAI<Ft:PSn(a 
5, 1155: PPAHFI: PSET ( i" . • §8): DRAKF4: PSE 
T i IK, iff » : DRAWFI : P ST ! 2 1 * , 8 7 ) : DRAhfFj 
2020 XH=240:YH=2S:5=«: ^485:Í*5:Y*13 
2030 GOSUB1030 
2040 m HOYO 5 

2050 DRAN'BM, 1 1 8C2E5RERER2ER4ER3ER3ER 
4ERER2ERE2RE8R2E 4 R3ER4ER i E t} 2E2R3E7'JE7R 



ERER8FR6FR4FRFR2FRFRFR2FR3' r R4FP14ER4ER 
E4UEUEUE5REP6FR7ER3E7UE3U2ER3ER3ER2EU2 
EU2EUEU2EUERE3RE7UEUEUEUEUEUER26D3IG2Ü 
2GD4GD11GD602GD6DGL5DGLG3LGLG6DGD3FD7G 
D55D63" 

2050 DRA«'DGDGD6D2GDGDG2DGÜGD&4LEGL262 
L25L35L45L4BL2GL6L45L4H13HL2HL3HL3HLÍH 
L3HL2HLHL2HL2HL2HLHL2HL3GL3GLGLG2LC-2LG 
5DG2LG2DGLG2L26L5HL5HL3HL66L:7EL6GL«GL 
2GL2G2LG4L39":PA!NT(12,115!,2 
2070 E0SUB242I 

2090 DPAW'BM 152,1 23C ! I E2 C 3FF2F5F4EFFÜ2 
B2LéH2L4HL2HLHO3BK18i,l20E5L»E5l}RER7Eü3 
EU3EP4FR3F2D5FD7GDL2GL:D3L5D2L25¿:«G:l 
3HÜ2H2Ü&BH164 I 7ÍS3Ü2E2R3DFD46D46B2B06L 
3H2U2EU4HU5BMl?i ) 5"EU3F2 , j2F3ü2?f.U2R3D2 
R3D2L2D2G4D3GD2L2C5LGL5r':3H , . ! :HL'i9 > '2<2, 
46U2EU2 

2090 DRA¥"EUEUEUR7FÜ3L54Ü21.2D212D6G326 
LHU6HU3E":PAINT(156,:23;.1!:PAINT:¡B5, 
121) jlllPAIMTí 166,721 , 11 : PAIÍÍT f 198,391 
,11 i PAINT (248, 42), 11 
2100 COLOR3:PSET(20,113!:!) C AWF! : <3E"3 
5. 108) : DRAWF$: PSET (50, 98) : &RAKN ; PSET ( 
¿5, 103) :DRAWF$:PSET'7?,9 (3 ' ;D C AWF1: C EE" 
:90,92):DRAIíF$:PSE 7 (95,-'!::DRfi^$;PSET 
(115,82) : DRAWFi 

2110 XH=246:YH=13:O=4: V ^505:?^: V =:46 
¡6CSUB1030 
2120 REM HOYO 6 

2130 "jPAH B BK2l,?C2F:D: r C2FD2FD3FDF2!}F2 
:5GD3GDG2D26D7FD-D2 c 0 or P ' 1 =T ! 7 5D2G3D57 
DG302FDFRF3RFRFR2FR7FR5FF.3?R3FRFDFPFR2 
r R3FR5FR4FRl < >ER5ER12ER!0 rcc R2FPFRFRF2R 
FR2FR2FRFRFR2FRFR2FR4FR17EF19FR15FR1ÍF 
R14FR4FR3FR4' 

2140 DRAW"BH21,9R51FDF06GD4GD2GD2GD2GD 
íPD2FDf r 3RF2DFDFÜ15FD4 r ÍF;FP2FRFR4FP9ER8 
ER5ER4£R9FR3FRFRF2fiFRF2RFP2FR3FR6ER4ER 
!flFR6FR3F2RP3RF5D c 8RFR c P2 r F^2 cc ;2 r =3FR 
25"!PAINT(25,10!,2 
2!!0 GCSUB2420 

2160 DRAW"BH48, 2BC11EU2E4P3E5R3ER3FD36 
D2GDGD2L2FD2L6D2L8HU2HU2F t !34,!2E:0R5FR 
F"D3GD4GD3GL362D3L3GL3"J"^2L;2HU W L'3 " : PAINT 
(50,28), ll:PAINT{45,48),!l:CIRClE(64 t l 
lB),20,ll, M .7:PAINT(64.118) f ll:C:RCLE 
(!35,95),25,7, jj .7:PA:NT!í35.95);7 
2170 C0L0R3: PSET í 175, 95! : 29AWFÍ: C SET( 1 
67, 106) : DRA!¿F$: PSET (194,95)5 DRAK C $:PSE 

T(2íe,l#8):DRANF« : PSE T (209 ( lli):DRAKFí 
:PSET(220,112):DPA«F$ 

2180 XH=4f:YH=18:5=4:YAM53:X=250:Y=li 
2:6OSUB1030 



9 9 9 • r - 



i s5»=-f ri\ubi\m ¡ii— 1 



2190 REI HOYO 7 

2200 DRAH'BlíJS, 103C2H4U6HU4EU6SUERER3E 
R2EUE'J2EU2ERE'JE ! JE^E c :4ER5EPE4UE4R2EF.iÉíF 
R3FR2FR2FR2FR4FR i 1 ER5ER2ER3ER4ER4FR7FR 
3FR3FR2FR2FR2F='2 cc ;2F&4í : R5EF.3ER2ER2En.5E 
R2ERE4UE6UE2 c E2 p EP2ER8FRF?BF6DF2D2F3!}r 
F2D2E3L25L3GL35L45L5GL2G4D5D¿FD9GDí t: D: 
I6046D* 

2210 DPAW'53LG , ,ZSLBHL7HL7HLwGL3GL5LG2'_ 
2SL5HL4HL2HL!Ht2HL2HLHL2H2L2KLH6L46l6 
L6L52L52L62L52LS2L262L4S2L3HL2HLH3L2HL 
WLHL4HL56L7E2L3SL362L6L6L6L4MUHU4EU3EU 
2EU3EU13-:PAIN'í3".? t ?) ,2 
Z220 GCSUB2420 

2230 CIRCLE(80,38).23,tl fM ;3:CIRCLE{« 
í,!18) f l9 l il,, l .3i« , AI!<T«ef,88),liíPAIN 
T(90,ll8),tl 

72<0 CCL0R3: FSE T í 131, 108) : DftJWFtttSEI i 
:::.!0<!:DRAWF!;osE?(!5!,120>:DRAWFt:P 
SET ( 1 70 , 1 07 ) : DF¿WF $ : FSET ( 184, 100) : ORA* 
c i:PSEni9< r :::!:r?AWFt : PSE T !20?.!?2): 
WAUFt {PSET158, 5?! : DPAHFi; p?ET ¡ ^, i51 . 
DRAHFf 

2250 PSET (74 ,51) ! DRAHFtiPSET 164.62» : 0 C 
AttFIjPSEWS.SShDRAWFI 
2250 XH=50:YH= ! 00: Q=3: V A=342: NH*i¡ X*2* 
0: V =57:GOSUB!030 
227f REI* HOYO ? 

2290 DRAK'BK! , Ü6C2E2RERE3R&RER3E4R2ER 
EUE7RERER2ERSR2E !? ER3E3RE4R2EFE7RERE !? E? 
2ER3ER3ER4EP P FP4-R5FP7FR5FR4FR4FRF2R2F 
RFRF!RF3RF7RF9R2F:R2FR4 c: R11EP4EMER4EF 
4ER14FR3FR4FR2FR3FR3FR4LM38L153D2G3LG7 
D3GD56D3SDG6D35D5GD3S2LGL3GL2GL59LGL2: 
L*SL3G" 

22°0 DRA«"t26L6L255L5L61fL62t6L26L45L2 
6LOS9l2":PA!NT(2ff f 20) l 2 
2300 GOSUB2420 

2310 D c AW9Nl30.30C7E , J3EU2E'JE2REREFE t : 
r F3 r R2FRFRrDF9R c RFR6FR2FD2FDFDF3RF2? r 3 
D3FR2!FR3ERF2DF:üí5!D2GD2G0G2DGDí c *j3¿'. 
:6L5HL4HL5HL4HL46L6L4FBF5R3FRFRFRFRFRF 
RFRF4RF2D3FD4FéD c 2D2GLGL3HL3HLHL2HL2HL 
2KLHl2HL4HL5BL25ü6D6B6L6t26L4HL2KL2HL3 
53H3U2 

2320 DRAK'HUH3L3HL6HL I HU2HL , H , JHLHL?HL3H2 
'J2E3RERE2RE5U2H5E2RERE2UEU5H4U2E2REU3H 
UHUHU3HU4HU3HU 1 2 ' : D A I NT ( 1 80 , 1 00 ) . 7 
2330 ÍH=240.:YH=28:Q=4:YA=470:)f=2:V=!34 
¡60SUB1I3Í 
23«0 REM HOYO 9 

2350 DRA»"BMf , 7f C2f 2RFRFR5FF l 1ER4ER4ER 
4ER7FR2FRF2RF2R2FR3FR8ER3EP2ER2ERERER2 
E3R2ERE2RER2ER6FR2FRFRF2RFRFRFR2F2RFR2 



FR3FR1 1ER3ER2ER2FDFDFRF2RFFFR C RFRFRFD2 
FB563D64B6D6B4FBFB2F9F5DFD3GB26B6B263D 
GD36D1 2R87U20H 1 3L3HL3HL4HL3HL3HLH6UH3U 
7EU2EU 

2360 DRAWE2U2E2U3EU7EU4EU2EUEU4EU5EU1 

2HU3HUH5LH2L46L56L2GL66L7GL14HL2HLH2LH 

LHLHLHLHLHL3HL6HL4HL4HL4HL2HLHU2HUHU2H 

2U3L120":PAINT(0,11),2 

2371 6OSUB2420 

2380 DRA«"BH7,48C1 1EU4ER3FRD3R4D2R2F3D 
FD2FD2FD2GL2HL2U2H2L5H6U3' : PAINT ( 10, 48 
) , 1 1 : CIRCLE (70, 62) , 24, 1 1 , , , . 44: PAINT (6 
8 l 60) l ll:CIRCLE(176,70) l 17,il lll .5:PAI 
NT(176,67), 11:CIRCLE(75,9),26,7;-,,.7:P 
AINT(75,9),7 

2390 COLOR3¡PSET(25,!2):DPAWF1:PSETÍ40 

,10):DRAHF$!PSET(102,23):DRAHFI:PSET(1 

10,15):DRAHFi:PSET(119,25):DPA*FS 

2400 XH»10tYH«23íO«5:YA«4?i:Xs248iY=i4 

5:GOSUB1030 

24!0 REM ARBOLES 

2420 COLOR 14 

2430 FORI=0TO255STEP20 

2440 FORY-14TO140STEF1B 

2451 A=POINT(I-3,Y-3):P=PC:\ 1 T(!-!0,Y-3 

);C=POINT(I-3,Ytl0):D=PCIN-;!*10,YM0! 

2460 IFA=12ANDB=12ANDC=12ANDD=::7MENPS 

ET(I, v ).12:PRINTtl,T 

2470 NEXT: NEXT: COLOR 15: RETURN 

2480 PEI JUEGO EN VERDE 

2490 !FPG(1!=2ANDPG(2)=2THEN2760 

2500 IFPG í 1 ) =2ANDNP= 1 THEN2760 

2510 COLOR 15,l,l:SCREEN2:LINE(2!,9;-( 

230,156), 12,BF:XH=127:YH=80:CIRCLE(XH, 

VH),3,1:PAINT(XH,YH),1:PSET(90.0):PRIN 

TIl.'V E R D E 

2520 FORI= 1TQ2; IFFG ( I ) =2THENX I ) =XH: Y í 
I ) =YH: KEXT 

2530 lFWm»2!HENP«2ELS£P»! 

2540 IFHC>»KTHENHS(HO>«HSfHO)-] 

2550 REM POSICION EN VE-DE 

2560 X- í NT(SGM(X (P) -XH> tftND ( i ) * 100+XHJ 

2570 Y«IHT(S6N(Y(P)-YK) rRNDi 1) I70*YH! 

2590 6QSUB3f5í:6OSUB1360 

2590 IFF=1THENP=2: IFPG (2) =20RííF = í 'HEN P 

-IsBQTO 2620ELSE2560 

2600 REK JUEGO EN EL VERDE 

26 1 0 GOSUB ! 470 : IFPG ( 2 ) =2THEN*= í EL9E I FP 

6íl)=2THENP=2 

2620 LWE (f r 156) - (255, í 51) , 1 , 3F: COLOR 
l5iP8ET(86,!!7){PRIMTIl,"JüBA00R , P 
2630 PSET(50, 173! ¡PRlNTil, "Distancia" 
2640 PSET (132, 173) ,1¡Z=IMPU?$(1);D=VAL 
(Z):PRINTII,Z;:Z=INPUT<(l):F'FINT8í,z : D 







=Dtl0*VAL(Z):IFD<lTHEN2620 
2650 D«SGN(RND(!)-F)iDl.l*RNÜ(l)*D 
2660 PSET(16!, 173), hPRINTti, "Angulo" 
2670 Z=INP'JH(1):PSET(220,173),1:PRINT 
#1 , Z; : A$»Z: Z=!NPUTt í 1 ) : PRINTt 1 , Z ; : At=A 
t+Z:Z=INPUTi(l):PRINTfl,Z:Z=At*Z:G=0 
2680 A«VAL(Z):IFA>359THENLINE(211,!73) 
- (255, 183) , 1 , BF¡ GOTO 2670ELSEHS (P) =HS ' 
P) + l 

26»0 X=IN T (D!COS(PDtA)):X=X(P)*X 
2700 Y=lNT(DtSIN(PDtA))t(-l):Y=Y+Y(P) 
2710 6OSUB3050:GCSUB1360 
2720 IFG= ! THENGOSUB870: PRINTt I ,R*l7hS 
OSUB860:GO'G 27 «0 

2730 !FR=1THENGOSUB870:R=0:PRIK , T*! M 

8) : IFPG ( 1 ! ♦?£ ' 2) MTHEN2760ELSE6CSU886Í 

:PUTSPRI T EP.íe,0),0:GOTO 2610 

2740 6QSUBB40i8QTO 2610 

2750 REM CLASIFICACION 

2760 FORI=r02;T(::=T(I)+HS(I5:S6(N.P 

=HS(I):NEXT 

2770 IFHS(1)>HS(2)THENHN=2 
2780 IFHS(2)>HS(1)THENHN=1 
2790 COLOR l5,Í3,kSCREENl¡KEY0FF 
2800 LOCATE7,0:PRINT"CLASIFICACION 

2810 L0CATE7, 1:PRINT" 

2820 L0CATE2,2¡PRINT"H0YO PAR J 
1 J2 

2830 L0CATE4,4:PRINT"1 « 
2840 L0CATE4, 6: PRINT"2 5 
2850 L0CATE4,8:PPINT"3 
2860 LOCATE4,10:f>RINT"4 
2870 LOCATE*, 12: °PINT"5 
2880 L0CATE4 i 14!PRWT , é 
2890 L0CATE4,!6:PRINT"7 
2900 L0CATE4,!8sPRINr8 
2910 L0CATE4, 20:FRINT"? 
2920 I*=STRí(T(l)):&OSUB3¡00:T7$=I*:H 

■8TRI(T(2))í50SUB3iM:TB$«!< 

2930 L0CATE2, 2! :PRINT" 

m 

29*0 LOCATE!. 22:PRINT"T0TAL 36 

T7I¡:IFNP=2THENPRINT" *T8$ 

2950 F0RI=1T39: IFS6ÍI, 1)=0THEN2930 

2960 It*Sm<Sé f 1, 1 )) :6OSÜB3100: T5««l$ 

:I$=ETR$!S6(I,2)!:5OSUB3100:T¿Í-Ií 

2970 Y»I 12*2: LOCATE 16» Yt PRIMTT54 1 IFNP* 

2THENL0CATE23, Y: F'INTT6$ 

2980 NEXT:FOPW=1TO1600:NEXT 

2990 FORI=1TO2:HS(I)=0;P5'I)=0:X(!)=0'. 

Y(I)=0:NEÍT:E=0 

3000 IFN=9THENC0L3R 12, 15, 15:SCREEN3:? 
SET (75,40) , 15: PRINTt! . "OTRO": PSET (60, 1 
20) , 15:PRINTtl. -JUEGO":GOTO 3020 



V, \ 




OOCiiZ QQfTIQC 
I l\UUf\lll II u 







3010 RETURN730 

3020 W$=INP'JT$(l):!F«t="N"OPWi='n"-^N 
CLS!PSET(60,80),15:PRINTI!,"ADIOS":6OS 
UB860;COLOR 15, 4, 4 ; SCREEN0 : END 
3030 RUN 460 

3040. REM FUERA VERDE Y HOYO 



3050 6=0:IFX<24THENX=24:B=lELSEIFr226 
THENX=226:5=1 

3060 IFY<5 T HENY=5:5=lEtSE!FY>!51THEKY= 
I3fi6*l 

3070 IF6«ITHENRETÜRH 

3080 IFX<rHANPX*B. x XHANDv/YHAMDV*e>Y«TH 



T090 RETL'RN 

3100 !FLEN(IÍ)=2 T »EN , tt = " '*!! 

5111 RETURN 

3120 REH SONIDO 

3130 r OR!=0TOl3:SO^D:.0:NEr 

314? SOUNPi§,20 

3150 SC»JN!P:2,fl 

3160 F0f¡I*ltp2MlHEíT 

3170 SOUKD'3,52 

3180 FCFI = 1TC'135:NEX7 

3190 S0UNM,S1 

3200 SOUND IT , : 

3210 RETURN 

3220 F0RI«IT0i3imW!,í:»£n 

3230 SOUND10.16 

32*0 SCUND12, 1¿ 

325? F0RI«IT03WíHEn 

3260 S0UNDi3,5 

3270 RETL'RN 
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570 






- 36 


1170 


- 50 


1470 


-146 


[?7í 


-212 


2070 


- 24 


2370 


- 24 


267? 


-179 


2970 


- 4 


3270-142 


280 


- 25 


580 






-237 


1180 


-168 


1480 


-197 


I7c0 


- 0 


2060 


-194 


2380 


- 23 


2630 


- 77 


293? 


-143 




290 


-173 


590 


-250 


990 


- 0 


1190 


- 68 


1490 


-140 


1790 


- 16 


2090 


- 18 


2390 


-143 


26?? 


466 


2990 


- 39 


TOTAL: 


3?? 


-157 


600 


- 42 


900 


_ 07 


1200 


-219 


1500 


-142 


1803 


- 34 


2100 




2400 


-124 


2700 




3000 


-106 


33837 







































3. 0 GRAN 



PROGRAMA 



tm 



CONCURSO 



DEL AÑO 



I 



CREA Y ENVIANOS TU PROGRAMA 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



BASES 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o más programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 
arias: 



B — Gestión 
C— Entretenimientos 
3 - Los programas, sin excepción, debe- 
rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón- etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIAS. 

I " 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con PuEM los distintos apartados del 
mismo. 

PREMIOS 



7 - MSX EXTRA otorgará los siguientes 




L 



TITUIiO 



PARA K 

INSTRUCCION DE CARGA 



AUTOR: 
EDAD: 
GALLE: 

CIUDAD 

N.° DE RECEPCION 



.................................. 



N. 



DP TEL.: ... 















premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

6000 pts* de Entretenlmiento 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro departamento de Programa- 

ción analizará tíodos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA que pasará a ostentar la pro- 
piedad de los mismos. 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 15 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de eneso de 1988, entre- 
gándose los premios el mismo mes. 



REMITIRA: 
CONCURSO MSX 



RocaiBatUe, 10-12 
bajos 

08023 Barcelona 




^ 9 i i\UüKni iru 



: 



REDEFINIENDO 



Programa de utilidad realisado 
por Ignacio Sáenz 



grama de utilidad os permite redeflnir el teclado, asignando a cada tecla el dibujo que deseéis. 



I'EPINE CUALQUIER LET 

A$5**M&tfl* 

1234S678 
A LETRA A DEFINIR? 


A 


■ 


■ 


■ 


■ 


■ 


■ 


■ 




■ 


u 


mt 


m 



1 

m 

121 
130 

150 
160 

1 7 0 
1B0 



n 'iffiftMtifttnufittutt 



REDEFIKIENDG 



S^ENZ 



MSX EXTRA 



tt 
t 
t 
* 
t 
i 
* 
t 



200 



"ti 
't 

•t IENACIO 
t 

t PROGRAMA DE UTILIDAD 
't 
t 

't 

•ttOCUPA 28BB PY T ES +ó- tt 

'ttttttttttttttttttttttttt 

210 KEYl/goto 460 ■♦CHR$(13):R«1 
220 SCREENliKEYOPT: PRINT "DEFINE CUALQU 
IEF: LETRA CON UNA ESCALA DE 8XB: LOS <1 
>S:GN:F ICA-RAN PUNTC PINTADO Y LOS 
C0> SIN PINTAR. DESPUES DE CADA LIN 
EA HORIZONTAL DA RETURN" ¡PRINT:PRTNT" 

i:34567B':PRINT 
230 ttlttttttttttttttttttttttt 
240 t DATOS DE COMO SE VA HA t 
230 't 5 DEFINIR LA TECLA t 

2í0 tttmtttttttttttttttttttt 

270 FQR¿=1TQ8:PRINTI;:INP!JTDI(I):NEXTI 
230 FCRI=1T08:D(I)=VAL('*B"*D$(I)):NEX 
TI 

2?0 tttmtttttttttttttttttttt 

300 *t HALLAR LA DIRECCION EN t 
310 't VRAM DE LA TECLA t 

3:0 'ttttttttttttttttttmttttt 

330 PRINT:INPUT B UNA LETRA A DEFINIR" ; L 
$ 

340 L=ASC (II ) IB: FOR I =0TO7 : VP0KEL+ I . D ( I 
UÜEIT 

350 FOR!*lTOi0MiNEXT:SCREEN0 
360 ttttttttttttttttttttttttt 

370 'I LINEAS PARA TU FUTURO t 







330 'I PROGRAMA I 

390 ttttttttttttttttttttttttt 

400 PF,IN T :PRINT:PRINT"ÜA RETURN A TODA 
S LAS LINEAS, Y DESPUES <F1>" 
410 PRINT: PRINT: PRIN T : FRINT: PRINT'l S 
CREEN 1' 

420 PRINT-2 DATA" ; : FOR 1= 1 T03: PR INTO ( ! ) 

; " , " ; : NEXTI : PRINTD í I ) 

430 PRlfr.3 DATA";:F0F>5T07:P^INTD!I) 

;V;:NEXTI:PRINT D(I) 

440 PRINT'4 FQRI=";L: , T0":L+7;":READD: 

VPOWI.fljHEITr 

450 LOCATE0,7:END 

ir? '.fMMlItlttlIltttlIllItltl 

47? '1 LEE COLORES ÜTL HABLES t 
480 'tttttttttttttttttttttttttt 

4'0 5CREENI : PRINT" ESCRIBE EN MAYUSCULA 
" " : r S I NT : PR INT 

500 DATANEGRO. VERDE, VERDE PALIDO. AZUL 
OSCURO, AZUL PALIDO, ROJO OSCURO, CAVO, R 
OJO. ROJO PALIDO, AMARILLO OSCURO. AMARIL 
LO PALIDO, VERDE OSCURO, «ASENTA, GRIS. 9L 
ANCO 

510 DIMA*(I6):RESTORE500:FORI=1TO15:RE 
ADBt:A$(I)=B$:PRINTA$(I);",-;:NEXTI 

520 tttttttttttttttttttttttttttttt? 

530 't PIDE COLORES Y MIRA SI ESTAN? 

540 ttttttttttttttttttttttttttttttt 

550 RRINT: PRIN T : PRINT"ELIGE=": INPUT'C 
OLOR DELANTERA" ;C$:INPUT"C0L0R DE FOND 
0";C1$ 

560 FORI=1T015 

5 7 0 IFCt=AS(I)THENC=I 

580 IFC1$=A$(I)THENC1=I 

590 NEXTI:IFC=0ORC1=0THEN BOTO 550 

600 ttttttttttttttttttttttttttttttt 

610 'tCALCULO DEL CODIGO DEL COLOR I 

620 ummmttmmmmmtu 

630 N =16tC+Cl 

640 INPUT "LA LETRA DE ANTES" ;L$ 
650 ttttttttttttttttttttttttttttt 

660 'tt CALCULO DE LA DIRECCION ti 
670 »tl EN LA VRAM DE LA LETRA tt 
680 ttttttttttttttttttttttttttttt 

690 L =ASC(L$ ):LE =INT(L /S*8192) 



700 PRINT: PRINT-TU CARACTER TIENE COD 
IEQ »|N !" Y DIRECCION'jLE 
710 ttttttttttttttttttttttttttttt 
720 'tt IMPRIME LA LETRA YA tt 
730 '«DEFINIDA Y DA SUS CODIGOS» 
740 'ttttttttttttttttttttttttttttt 
750 VPQKELE ,N 
760 PF.INT:PRINTL$ 

770 PRINT:PRINT"PARA GUARDARLO ESCRIBE 
■:PRINT¡PRINT"VPOKE"¡LE ;"."¡N 
780 FORU=1TO1000:NEXT 
790 SCREEN0 

800 PF;INT:PRINT"DA A CADA UNA DE LAS L 
INEAS UN (RETURN), PARA GUARDARLAS Y 
DESPUES DA <RUN> "SPRINT: PRINT: PRINT 
¡PRINT 

810 PRINT-5 VP0KE";LE ;",";N 

820 PRINT"6 PRINT";CHRi(34);-PUL5A TU 

LETRA REDEFI N IDA Y PARA HACER OTRA <F2 

>";CHRi(32):KEY2,"goto tff'»GHR*U3J 

830 PRINT-7 END" 

840 LOCATE0, 7: END 



n 





100 


- 5E 


300 


- 58 


500 


- 44 


700 


-117 


110 


- 58 


310 


- 58 


510 


-140 


710 


- 58 


120 


- 5B 


320 


- 58 


520 


- 58 


720 


- 58 


130 


- 58 


330 


-221 


530 


- 58 


730 


- 58 


140 


- 58 


340 


-223 


540 


- 58 


740 


- 58 


150 


- 58 


350 


-121 


550 


- 22 


750 


-209 


160 


- 58 


360 


- 58 


560 


-195 


760 


-204 


170 


- 58 


370 


- 58 


570 


- 53 


770 


-193 


180 


- 58 


380 


- 59 


580 


-151 


780 


-117 


190 


- 58 


390 


- 58 


590 


-216 


790 


-214 


200 


- 58 


400 


-183 


600 


- 58 


800 


- 61 


210 


- 33 


410 


- 35 


610 


- 58 


810 


-143 


220 


- 26 


420 


-141 


620 


- 59 


820 


-216 


230 


- 58 


430 


-150 


630 


-247 


830 


-227 


240 


- 58 


440 


- 2 


640 


-125 


840 


-232 


250 


- 59 


450 


-232 


650 


- 58 






260 


- 58 


460 


- 58 


660 


- 58 






270 


-212 


470 


- 58 


670 


- 58 






2S0 


- 78 


480 


- 58 


680 


- 58 


TOTAL: 


290 


- 53 


490 


- 19 


690 


- 92 


71 


14 



INICIACION AL LENGUAJE MAQUINA 



DEL HMD AL SOFT 



SERIE NUEVA 



Llegó el momento del desencanto ya sabemos cómo, pero no sabemos qué. Es decir, conocemos mucho sobre el 
ordenador, cómo funciona el VDP, cómo leer archivos, cómo... pero no sabemos que hacer con él, excepto diseñar 
juegos o sofisticados programas, que... en la mayoría de ocasiones no nos sirven para nada, en fin, no son muchos los 
que logran profesionalizar sus conocimientos pero para aquellos que contra viento y marea quieran intentarlo el 

conocimiento de la ley de Murphy les será imprescindible. 



Con este llegamos al número 22 
de nuestra serie del Hard al 
Soft lo cual, según se mire pue- 
de decir muchas cosas o, puede no de- 
cir nada, pero en todo caso, sí parece 
Uegado el momento de hacer un ba- 
lance. A mí, su autor, no deja de asom- 
brarme el gran avance teórico que ha 
experimentado el aficionado a los or- 
denadores en estos dos años y creo 
que modestia aparte a los que mes a 
mes hemos hecho posible esta revis- 
ta nos corresponde un poquito de mé- 
rito por eUo. Cuando iniciamos esta 
serie, o aún diría mas, cuando inicia- 
mos esta revista -así como su her- 
mana MSX Club— el usuario de MSX 
no parecía demandar en exceso in- 
formación sobre lenguaje maquina, 
siendo el 90% de nuestras consultas 
relacionadas con el Basic. EUo era, 



todo hay que decirlo, en parte debido 
a la incredulidad por parte de mu- 
chos hacia las ventajas del MSX BA- 
SIC, que entonces aún eran verdade- 
ramente revolucionarias. Hoy en día 
el 50% de la revista está dedicada a 
esta temática directa o indirecta- 
mente. Se ha avanzado mucho, sí, y 
no me refiero tan sólo al desarroUo 
de la norma MSX, que contra toda 
suerte de pronósticos adversos se ha 
afianzado en el mercado sólidamen- 
te, no sobre todo se ha avanzado en lo 
que respecta al nivel de conocimien- 
tos de nuestros lectores, que si ayer 
nos pedían información hoy nos la 
brindan —muchos de nuestros artícu- 
los firmados por lectores así nos lo 
demuestran- por otro lado, cuando 
iniciamos nuestra singladura había 
verdaderos problemas para encon- 




trar libros, información, etc., etc., re- 
ferente al MLP. Sin embargo, ahora 
es posible encontrar en las librerías 
especializadas más de 10 títulos dedi- 
cados al LENGUAJE MAQUINA del 
MSX. Asimismo ha crecido notable- 
mente el número de colaboradores 
técnicos de esta editorial, y se desa- 
rroUan series que destripan a con- 
ciencia al ordenador. 

Es pues el momento de decir adiós 
a esta serie que no intentó sino expli- 
car en la medida de lo posible el salto 
entre la frialdad de un circuito y la in- 
teligencia —artificial sí así se quiere- 
de un ordenador, y como resumen de 
dos largos años de artículos mensua- 
les me atrevería a recordarles que el 
álgebra de Boole, sobre la que descan- 
sa el funcionamiento lógico de estas 
máquinas, fue desarroUada por el se- 
ñor Boole, como una explicación ma- 
temática a los procesos mentales del 
ser humano. Pero no seguiré por esos 
derroteros, pues eso sería filosofía. 

Aunque por otro lado no deja de ser 
filosofía en cierta medida y no por 
eUo menos real la famosa Ley de 
Murphy o de La Tartine cuando se 
aplica a los microordenadores. 

"Está comprobado que cuando se 
diseña un sistema y se prevén mu- 
chas posibilidades adicionales, nun- 
ca se necesitan éstas. En cambio 
siempre se necesita lo que no se ha 
previsto." 

Para los que no conocieran esta fa- 
mosa Ley les diremos que su enuncia- 
do general podría ser: si algo puede 
fallar, fallará. Esta famosa ley deriva- 
da del segundo principio de la termo- 
dinámica viene aplicándose hace 
años a los más variados campos con 
resultados sorprendentes. 

¿Qué queremos decir con eUo? 
Pues ni más ni menos que "las posibi- 
lidades de que la tostada untada con 
mantequfila caiga sobre la 
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con el lado untado hacia abajo es di- 
rectamente proporcional al valor de 
la alfombra". Ja! Ja! espero que mío 
lectores me hayan perdonado esta 
pequeña broma después de casi dos 
años de s esud os artículos mes a mes. 

MSX EXTRA N.° 4 primer artículo 
de Hard al Soft. ¿Qué es un ordena- 
dor? números binarios (puertas lógi- 



r.° 5 (palabra, tamaño de palabra) 
(memoria) (memoria periférica ex- 
terna). 



N.° 6 (memoria del MSX) (nota- 
ción hexadécimal) (mapa de memo- 
ria MSX). 

N.° 8 (programa para volcado de 
memoria) (POKE) 

N.° 9 (el Z80) 

N.° 10 (registros del Z80 primeras 
instrucciones Asembler) 

N.° 11, 12, 13, 14 y 15 explicación 
exhaustiva de todas las instruccio- 
nes Assembler. 

MSX EXTRA N.° 16 (Punción USR) 
(CLEAR) 



N.° 17, 18, 20 y 21 (instrucciones 
avanzadas Assembler) 

N.° 22 (instrucciones de rotación y 
de desplazamiento) 

23 (transferencia de bloques) 

24 (todas las instrucciones del 
Asembler) 

25 y 26 (ampliación Asembler) 
Todo lo cual se completó con sen- 
dos apéndices dedicados a las comu- 
nicaciones y al álgebra de Boole res- 
pectivamente. 

JUAN C. GONZALEZ 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 




MSX 2« Edición 
N.°* 1,2,3,4 • 450 PTAS. 




MSX17 175 PTAS. 



MSX 2 • Edición 
N.°* 5.6.7.8 - 475 PTAS 



MAHACXSMlT J=S< 



MSX18 175 PTAS 



MSX 2." Edición 575 
N.° 9,10,1 1 ,12,13 PTAS. 




MSX 14 160 PTAS. 



> 

_>3 ■ ... • 



MSX15 175 PTAS. 



MSX16 175 PTAS. 





MSX19.20 350 PTAS 



MSX21 175 PTAS. MSX CODIGO 

MAQUINA - 275*TAS 




MSX22 175 PTAS. 



m 



MSX23 175 PTAS 



MSX 24 175 PTAS 



MSX25.26 350 PTAS MSX27 225 PTAS. 





MSX 28 225 PTAS 




MSX 29 225 PTAS. 



¡LA I a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

' SUSCRIPCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 




Deseo recibir los números 

para lo cual adjunto talón del Banco 

Nombre y apellidos 

Dirección 



de SUPERJUEGOS EXTRA MSX 



n.° 



a la orden de Manhattan Transfer, S A 



Tel.: 



^Población 



Prov. 



«No se admite contrarreembolso» 
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MAS DE 34.000 
PROFESIONALES 
HAN VISITADO 
INFORMAT 87 




Según cifras provisionales, mas de 
34.000 profesionales procedentes 
de todo el país han visitado Informat 
87, durante los seis días que el salón ha 
permanecido abierto. Este número de visi- 
tantes, fundamentalmente distribuidores 
de informática, potenciales usuarios y téc- 
nicos representa un incremento del 30 
por ciento en relación con la anterior edi- 
ción del salón. En este sentido, dos razo- 
nes han contribuido a lograr el citado in- 
cremento de visitantes. En primer térmi- 
no, el hecho de que el salón haya durado 
un día mas a petición del sector y, en se- 
gundo lugar, la coincidencia del puente de 
San José, que ha propiciado que visitaran 
Informat un buen número de potenciales 
usuarios. 

De esta forma, la presencia en el certa- 
men del ciento por ciento de la oferta in- 
formática del mercado español ha tenido 
su correspondencia desde el lado de la de- 
manda, con los citados incrementos de 
afluencia de profesionales. 

El conjunto de estos resultados revali- 
dan su condición de salón exclusivamente 
profesional íntegramente dedicado a la in- 
formática y su influencia en la totalidad 



del mercado español, lo que le reafirma 
como la primera cita informática del año 
en España. En esta misma línea se inscri- 
be la convocatoria de Informat 88, que du- 
rará seis días, entre el 1 1 y 16 de abril del 
próximo año, y que parte con los objetivos 
de mantener el actual prestigio del salón y 
lograr para esas fechas su homologación 
como certamen internacional que por su 
historia, vocación y contenido le corres- 
ponden. 




Tozaxay, el "omnibof de i 
euhope (no me comerclmllmm) 




= 



Stand de Idealogic en 



NULA PRESENCIA 
MSX 

En el recientemente concluido : 
INFORMAT 87, la norma MSX 
ha brillado por ra ausencia 

Bien es verdad que este certamen anual 
cada vez se decanta más hacia el sector 
profesional, pero no dejamos de lamentar 
el escaso eco de la norma MSX en él. El as- 
pecto más destacable de este salón ha sido 
la presentación de nuevos paquetes de 
software de gestión, así como de equipos 
para el control de procesos industriales. 
Los PC's estaban presentes no tanto como 
novedad en sí misma sino como termina- 
les de equipos mayores. 

— 



De todos modos, IDEALOGIC estuvo pre- 
sente con su software para equipos de la 
segunda generación de MSX además de 
con los programas que tiene desarrolla- 
dos para el standard PC. 

La nota curiosa de la feria la dio Com- 
TRade Europe con su robot (omnlbot) 
TOMY, que pese a no estar prevista su co- 
mercializació dio un cierto aire futurista 
a la feria, siendo poco menos que la masco- 
ta de esta edición de INFORMAT. 



Afirma Pasqnal Maragall 
en la inauguración de la CU 

LOS JJ.00.-92 
44 PROYECTOS 
INFORMATICOS 
POR UN TOTAL DE 
43.591 MILLONES 




La organización de los Juegos Olímpi- 
cos de 1992 hace imprescindible el desa- 
rrollo de, al menos, 44 proyectos informá- 
ticos, de comunicaciones, instalación de 
fibra óptica, radiotelefonía y equipamien- 
to de radiotelevisión, de los 99 contempla- 
dos por los redactores del BIT 92 (Barcelo- 
na Informática y Telecomunicaciones), 
ha afirmado el alcalde de Barcelona, Pas- 
qual Maragall, durante su intervención en 
la jomada inaugural de la Convención In- 
formática Latina, (CIL) en Informat 87. 
Acompañaban al alcalde de Barcelona el 
presidente de Informat 87, José A, Díaz 
Salanova; el director general de Feria de 
Barcelona, Enríe Crous, y el presidente de 
la CIL 87, Manuel de Porn. 

Pasqual Maragall añadió que el coste to- 
tal de los 99 proyectos aconsejados se esti- 
ma en unos 58.825 millones de pesetas de 
1985, si bien si se toman únicamente en 
cuenta los citados 44 proyectos conside- 
rados imprescindibles, el coste de ejecu- 
ción de los mismos asciende a 43.591 mi- 
llones de pesetas, según las estimaciones 
realizadas en 1985. El alcalde agregó que, 
aunque el encarecimiento del coste de es- 
tos proyectos será muy importante du- 
rante los próximos años, éste se verá 
amortiguando por las ayudas externas al 
propio presupuesto del COOB 92 ( 106.000 
millones de pesetas), que podrían ascen- 
der a unos 35.034 millones. 







= 
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MI Consejero Delegado y Director General 
de Sony España, 8r. Ta da ahí . 



SONY INVERTIRA 



1.000.000.000 



ESPAÑA 



n una rueda de prensa celebrada 
recientemente en Barcelona, Ta- 
dashi Hasunuma Director General 
y Consejero Delegado de SONY ESPAÑA 
S A. — en su primera comparecencia ante 
los medios de comunicación desde que ac- 
cedió al cargo el pasado enero — afirmó 
que esta compañía tiene previsto invertir 
durante el presente año una cifra supe- 
rior a los 1.000 millones de pesetas en la 
mejora de la tecnología de su fábrica de Pá- 
rete del Valles en Barcelona. Con esta can- 
tidad la inversión total de esta empresa 
española se cifrará en los 3.000 millones 
de pesetas. 

El destino fundamental de estos 1.000 
millones será la ampliación de las instala- 
ciones y del número de robots en las cade- 
nas de montaje y en la aplicación de un 
nuevo sistema de computerlzación del 
control —TON SYSTEM — . Estas mejoras 
convertirán a SONY ESPAÑA, durante 
1987, en una de las fábricas mejor equipa- 
das del Grupo a nivel mundial puesto que 
— en palabras del propio Tadashi Hasunu- 
ma, "muy pocas compañías utilizan orde- 
nadores que conecten directamente con el 
control de fabricación. Se trata de una op- 
timización de la estrategia, entendida en 
todo lo que se refiera a programación de la 
producción". 

La innovación consiste, como mencio- 
nábamos anteriormente, en la implanta- 
ción de un nuevo sistema de computerlza- 
ción para la producción asistida por orde- 
nador de la planta de Parets del Valles. 



Recientemente han sido dados a co- 
ano- a esta iniciativa que porla 
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Detalle de ana de las nuevas máquinas de Inserción automática. Dos j 
de robots me incorporan, durante este año, a la cadena de montaje. 



Otra vez en palabras del propio Director 
General de SONY. "Con la incorporación 
de otras unidades de robots y del Compu- 
ter Aided Production -TON SYSTEM—, 
aumentará considerablemente la eficacia 
de nuestra fábrica dentro de la Europa Co- 
munitaria y la hará más competitiva en 



relación a otras fábricas del Norte de Eu- 
ropa". 

Cabe tener en cuenta que de la produc- 
ción total de SONY en España, aproxima- 
damente el 20 por ciento, se destina al 
mercado exterior. Una vez más, enhora- 
buena SONY. 
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CHOPPER 



Eaglesoft/Aacksoft/Sony 
íormato: Disco 3 1/2", MSX-2 
Mandos: Teclado, joystick. 
Precio: 4000. 



El programa CHOPPER es un es- 
pléndido simulador de helicópte- 
ro. En este programa nuestra mi- 
sión es recoger supervivientes en plena 
selva tras un "raid" enemigo. Tenemos un 
completo control sobre el helicóptero gra- 
cias a los complejos mandos de abordo y a 
la computadora de viaje, que nos propor- 
ciona información sobre todo el estado del 
aparato. Es posible controlar, de igual for- 
ma todo el armamento, radares y demás 
instrumentos del aparato. 




En el Juego destaca su elaborado grana - 
mo, ya que es un juego desarrollado para 
los MSX de segunda generación, haciendo 
perfecto uso de todas sus posibilidades 
gráficas. Es de destacar el completo panel 
de mandos del aparato, en el que se inclu- 
yen, display del ordenador de a bordo, me- 
diante el cual se nos comunicará todos los 
daños sufridos por los enemigos y el esta- 
do general del aparato; controles de velo- 
cidad, temperatura, combustible en los di- 
ferentes depósitos, radar, brújula, hori- 
zonte artificial, altitud, velocidad de as- 
censo, velocidad de giro, identificador de 
objetos, rastreador, control de aceite, y un 
largo etcétera que nos da una perfecta idea 
de la complejidad del Juego. 



Trataremos a continuación de esbozar 
las principales ventajas e inconvenientes 
de este completísimo simulador de heli- 
cóptero de rescate/ataque (ya que hemos 
de eliminar a todos los enemigos que que- 
dan en la zona). 



* El conjunto del Juego presenta una ca- 
ndad bastante alta, siendo unjuego intere- 
sante y difícil de dominar. 

* Los gráficos estáticos sacan buen par- 
tido de las posibilidades de los MSX de se- 
gunda generación. 

* La velocidad de respuesta es propor- 
cional a las condiciones en que se encuen- 
tre el aparato, como en un helicóptero 
real. 

* El sonido es una de sus mejores virtu- 
des, haciendo uso de voz sintetizada para 
dar mensajes de aviso. 



CONTRAS; 



* El Juego resulta muy complicado en los 
niveles iniciales, con lo que al empezar a 
Jugar, uno no llega a acostumbrarse a los 
mandos hasta haberse estrellado una 
veintena de veces. 

* El paisaje sobre el que nos movemos, 
compuesto de líneas rectas podía haber 
estado mucho mejor logrado, aprovechan- 
do un tanto más la memoria de vídeo adi- 
cional de los M8X-2. 

* Los mensajes que da el programa de 
viva voz son en inglés, aunque la pronun- 
ciación es muy clara 



T. N. T. 



Manhattan Transfer, S A 
Tomate: Cassette, MSX-1 




En este original Juego debes abrirte 
camino hasta la llave de oro, que 
te permitirá salir de tu laberinto 
hacia la próxima pantalla. Tu camino se 
halla bloqueado por enormes rocas, que 
sólo podrás apartar de tu camino gracias 
a las cargas de dinamita que se hallan re- 
partidas por todo el laberinto. 

Las pantallas consisten en un entrama- 
do de pasillos y escaleras en las que se en- 
cuentran las cargas de TNT. Puedes reco- 
gerlas, pasando sobre ellas, y dejarlas cer- 
ca de las rocas que desees dinamitar. A 
continuación debes dirigirte hacia el deto- 
nador, desde el que podrás hacer estallar 
las cargas. 



Willy Miragall 




Pero el camino no es fácil, te acechan 
numerosos peligros. Entre ellos destacan 
dos voraces monstruos, que te impiden el 
paso. Sólo puedes eliminarlos si haces es- 
tallar una bomba cerca de ellos. Existe 
también el peligro de caer dentro del hor- 
no de lava si el techo, que se desmorona 
aleatoriamente, cae bajo tus pies. 

La partida consta de 6 vidas, que pueden 
ser eliminadas por varios motivos. Pier- 
des una vida si eres devorado por alguno 
de los monstruos, o si caes en el horno de 
lava, o si caes de una escalera cargando 
una bomba, o si explota una bomba cerca 
de tí. Si caes de una escalera el contador de 
resistencia se decrementará, y perderás 
otra vida si llega a cero. 

Unjuego muy Interesante, del que desta- 
camos a continuación sus puntos positi- 
vos y negativos. 

PROS 

* Juego, muy original e interesante. In- 
corpora una gran cantidad de posibilida- 
des, haciéndolo un Juego muy completo. 

* Gráficos buenos, con un buen uso del 
color. 

* Efectos sonoros interesantes. 



C0NTRA5 — 

* El manejo del personaje resulta difícil 
en algunos momentos debido a que la ruti- 
na de teclado no es lo suficientemente rá- 
pida. 

* Se desactivan todas las bombas al mo- 
rir, teniendo que volver a relniciar el pro- 
ceso. 



MATA 
MARCIANOS 



Manhattan Transfer, S A 
Formato: Cassette, MSX-1 
Mandos: Teclado, joystick. 
Precio: 900 pte. 



T 



ratamos hoy una de las últimas no- 
vedades de Manhattan Transfer, 
Mata MARCIANOS. El Juego con- 



C0NTRAS = 

Como aspectos negativos en el Juego po- 
demos citar. 

* Los gráficos son monótonos, y muy si- 
milares en todas las fases. 

* No en todas las fases se permite el uso 
del Joystick. 

* Existen BUG-S en el programa que per- 
miten pasar fácilmente a niveles superio- 
res. Este defecto es en muchas ocasiones 
incluido a propósito en los juegos, ya que 
resulta muy agradable descubrir un truco 
para pasar pantallas cuando está todo 
perdido. 



(aunque tampoco lo despreciarán estos 
últimos) destacará dentro de poco en el 
mercado del software para los MSX. 

Tanto por sus gráficos como por su "in- 
teresante" personaje. 

PROS = 



* Excelentes gráficos y uso exhaustivo 
de imágenes dlgitalizadas durante todo el 
transcurso del juego. 

* Música bastante bien conseguida que 
sirve de fondo a todas las partidas. 

* Es imposible dejar una partida a me- 
dias. 




siste, como ya viene siendo habitual en la 
mayoría de Juegos espaciales, en matar el 
máximo número de enemigos sin ser toca- 
do por los proyectiles que estos disparan 
contra nosotros. 

Pese a que la idea del juego es poco (por 
no decir nada) original, el juego está co- 
rrectamente realizado y resulta muy inte- 
resante por numerosos aspectos que lo 
hacen destacar. En primer lugar el núme- 
ro de invasores es grande, 100 en cada 
fase del Juego, y no podemos pasar a la fase 
siguiente hasta haber eliminado a todos 
los invasores de la pantalla. El Juego dis- 
pone de tres niveles de dificultad y posibi- 
lidad de hasta cinco Jugadores. 

Podemos decir que el Juego es interesan- 
te, aunque, tras haber adquirido un cierto 
dominio se hace algo monótono. 



RED LIGHTS OF 
AMSTERDAM 



PRESS FUTTON 
TO CONTINUE 



EaglesoftVAacksoftVSony 
Formato: Disco 3 1/2", MSX-2 
Mandos: Teclado 
| Precio: 4.000 pte. 



Podemos destacar como positivas en 
este Juego las siguientes características. 

* El control de la nave es muy rápido y 
obedece instantáneamente, lo cual da una 
agradable sensación de control sobre el 
Juego. 

* El disparo automático permite dispa- 
rar ráfagas que eliminen de un solo golpe 
a varios de nuestros agresores. 

* El Juego es muy rápido y no permite 
una sola pérdida de atención. 

* El nivel creciente de dificultad en el 
Juego hace que sea prácticamente imposi- 
ble llegar a las últimas fases. Para los ami- 
gos de los disparos a discreción este Juego 
puede llegar a tener una alta dosis de adic- 
ción. 



Este programa, nada habitual den- 
tro de la gama de programas que 
estamos acostumbrados a ver, 
presenta una "especial" partida de póker. 
En ella, jugamos contra un único adversa- 
rio (adversaria mejor dicho). 

El Juego cuenta con 100 fichas como 
unidad fundamental. 8e Juega hasta que se 
ganen o se pierdan 100 fichas. En caso de 
ser nosotros los que ganemos a nuestra 
atractiva contrincante, ésta procederá a 
retirarse una de sus prendas, protagoni- 
zando de este modo un emocionante 
"strip-tease" según nos sea o no favorable 
el desarrollo de la partida. 

La excelente capacidad gráfica de los 
MSX-2 permite unos gráficos espectacu- 
lares, que han sido plenamente utilizados 
en este programa. Tanto las Imágenes de 
nuestra contrincante, fotos digitalizadas 
mediante una cámara de vídeo, como el di- 
bujo de las cartas (muy bien conseguido) 
pueden hacer las delicias de más de uno. 

Estamos seguros de que este Juego, que 
interesará más a los padres que a los hijos 




PRESS BUTTON 
TO CONTINUE 




CONTRAS 



* Nuestra contrincante no es precisa- 
mente un genio jugando al póker, desta- 
cando la excesiva "facilidad" con que pier- 
de las partidas. 



Tratamiento de ficheros 



Los ficheros secuenciales, 
un ei emnlo práctico 

_ 







Como ya anunciamos en el número anterior de nuestra revista incluimos el listado de un programa que trabaja con 

ficheros secuenciales como ejemplo de su uso en los MSX. 



Mientras realizábamos la sec- 
ción de trucos del progra- 
mador del pasado número 
de MSX-EXTRA se nos ocurrió un in- 
teresante ejemplo de uso de ficheros: 
un programa generador de progra- 
mas. 

Un generador de programas no es 
más que un programa que, tras' pre- 
guntar ciertas cuestiones al usuario 
genera un fichero que contiene el 
programa resultado. Este programa 
resultado puede ser directamente 
ejecutado, con lo que el usuario ha po- 
dido realizar un programa completo 
con sólo responder a unas simples 
cuestiones. 

Pese a lo que mas de uno pueda pen- 
sar, los generadores de programas 
no son curiosidades informáticas, 
sino uno de los elementos integran- 
tes de la actual informática de ges- 
tión. 

Los generadores de programas son 
muy utilizados para individualizar 
programas generales. Por ejemplo, 
puede ocurrir que si deseamos com- 
prar un programa de base de ciatos 
para nuestros ficheros (programa 
que controla y actualiza todo Upo de 
ficheros), nos ofrezcan un generador 
de programas. Gracias al generador 
de programas, con sólo responder a 
unas cuantas preguntas sobre el con- 
tenido del fichero, su longitud, etc., 
tendremos a nuestra disposición un 
perfecto programa para el manejo de 
ese fichero en particular. 

Las ventajas de los programas ge- 
nerados frente a los programas gene- 
rales, que manejan todo tipo de fiche- 
ros, son múltiples: al tratar un solo 
tipo de fichero el acceso a los datos es 
mucho más rápido y eficaz, el uso del 
programa es mucho más sencülo 
para el usuario, etc. Son estas carac- 
terísticas, que siempre han hecho 
preferibles los programas específi- 
cos a los generales, las que hacen que 
los generadores de programas sean 
una de las opciones más "interesan- 
tes" a la hora de informatizar una 
cierta tarea. 

NUESTRO GENERADOR DE 
PROGRAMAS 

En el departamento de programa- 




ción decidimos realizar un pequeño 
generador de programas, de forma 
que pudiéramos ejemplificar de un 
modo sencillo los dos puntos que tra- 
tamos hoy: los ficheros secuenciales 
y los generadores de programas. 

El programa que incluimos es un 
generador de programas de sprites. 
Explicamos a continuación su fun- 
cionamiento. 



En primer lugar se nos pregunta 
sobre el tamaño de los sprites, de 8 x 8 
o de 16 x 16. Acto seguido se nos pide 
si deseamos que los sprites aparez- 
can ampliados en la pantana. Una 
vez hecho esto hemos de definir la 
forma del sprite con unos y ceros. 
Acabada esta última tarea es cuando 
empieza a trabajar el generador de 
programas. Con toda la información 
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prograias de sprites 

MSX-EXTRA 
por Killy Hiragall 
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lf 

11 
12 
13 
14 
1S 
16 
17 
18 
19 
20 
21 
22 ' 

24 CLEAR Sil 

25 DIH S$(16) 

26 ' 

30 ' Inicia preguntas 

31 » 

41 KIDTH 39:CLS:KEY OFF 

50 PRIHT SPC(10);'6enerador de prograe 

as' 

61 PRINTsPRINT STRIN5K39, 'I') 

70 LOCATE 10,10:PRINT Sprites de 

8x8.' 

81 LOCATE 10,12:PRINT '2.- Sprites de 
16x16.' 

9i LOCATE 0,15:PRINT 'Elige opción: 
100 A$*INPUT»<1) 
111 T*VAL(A«) 

120 IF T<1 OR T>2 THEN 110 
123 T«M 

130 LOCATE 0,10:PRINT CHR«(27);'J' 
14f PRINT '¿Sprites aipliados (S/N)? ' 
J 

150 Af*INPUT$(l) 

161 A*INSTR('NnSs',A$) 

171 IF A«f THEN 15# ELSE A=<A-1)\2 

181 LOCATE 0,10:PRINT CHR$(27);'J' 

19# LOCATE l,5:PRINT 'Entra con 1 y 0 

la fona del sprite.' 

211 FOR 1=1 TO 7*8tT 

211 LOCATE 3,I*7:PRINT USIN6 'M';I;:P 

RINT ' ^STRINSf (8*8tT, ■•■) 

220 LOCATE 5,I*7:INPUT SKI) 

225 IF INSTR(S$(I),V) THEN 220 

. 



230 NEXT I 

240 ' 

241 ' Abriios fichero 

242 ' 

250 OPEN -PR06" FOR OUTPUT AS ti 
261 ' 

261 ' Brabaios línea SCREEN 

262 ' 

270 PRINTIl.'J SCREEN 2.';Tt2+A 

280 ' 

281 ' Bucle FOR 

282 ' 

290 PRINTI1,'20 S$«';CHR$(34);CHR$(34) 

300 PRINTil,'30 FOR X=l T0";8+24IT 

310 PRINTI1,'40 READ A' 

320 PRINTil f '50 Sf=S$+CHRt(A)- 

330 PRINTI1,'60 NEXT X' 

340 PRINTI1,'70 SPRITE$(1)=S$" 

350 PRINTI1,'80 PUT SPRITE 1,(100,100) 

,15,1' 

360 PRINTI1/90 60T0 90' 

370 ' 

371 ' DATAS 

372 ' 

375 » de 8x8 

376 ' 

380 IF T THEN 500 
390 FOR 1=0 TO 7 

400 PRINTil,l00*Itl0 } ' DATA IB'jSKI) 
410 NEXT I 
420 CLOSEI1 
430 END • 

500 ' 

501 ' de 16x16 

502 ' 

510 FOR 1=0 TO 15 

520 PRINTtl,100*lfl0;- DATA fcB'jMDítS 

1(11,1,1) 

530 NEXT I 

540 FOR 1=0 TO 15 

550 PRINTI1,360MI10;' DATA *B';HIDt(S 
til) ,9) 
560 NEXT I 
570 CLOSEI1 
580 END 











_ 



necesaria en su poder, el programa 
irá enviando al fichero las líneas que 
conformarán el programa de sprites. 
Una vez hecho esto, podemos ya car- 
gar el programa resultado, que gene- 
rará el sprite y nos lo colocará en la 
pantalla. 

Como podréis observar no se trata 
de un programa demasiado útil; pero 
es, sin embargo, un programa senci- 
llo a partir del cual podéis desarro- 
llar vuetros propios programas, bien 
de ficheros, bien generadores de pro- 
gramas. 

Un aviso para aquellos que utilicéis 
un cassette para grabar el fichero. 
Antes de comenzar el programa ge- 
nerador debéis poner la cinta en 
modo grabación, ya que el programa 
se pone a grabar directamente sin 
dar ningún aviso. Podéis, sin embar- 
go, añadir si lo deseáis en la línea 245 
alguna instrucción que os avise que 
habéis de conectar el cassette (REC & 
PLAY). 

EXPLICACION DEL PROGRAMA 

Vamos ahora a dar un repaso al 
programa, tratando de explicarlo lo 
más claramente posible. 

En primer lugar, en la línea 24, y 
tras los REM iniciales (recordad que 
el apóstrofo * es la abreviatura de 
REM) realizamos un CLEAR 500. 
Con esta instrucción reservamos 
500 bytes de memoria para las cade- 
nas de caracteres, en los que almace- 
naremos, entre otras cosas, la forma 
de los sprites con unos y ceros. 

En vuestros programas debéis mo- 
dificar el valor del CLEAR según sea 
la cantidad de memoria que necesi- 
téis tener reservada para cadenas de 
caracteres. En nuestro caso necesita- 
mos, para los sprites de 16 x 16 (los 
mayores) 266 caracteres (unos o ce- 
ros), más las respuestas a las pre- 
guntas sobre el tamaño de los sprites, 
etc. Con CLEAR 300 hubiera sido se- 
guramente suficiente; pero "más vale 
que sobre que no que falte". 

La línea 25 incluye el DIM que re- 
serva espacio para S$, donde almace- 
naremos cada línea horizontal que 
compone el sprite. 

Las líneas 40 a 90 son de puro trá- 
mite y sólo merece la pena destacar el 
uso de SPC(IO) en la línea 50 y de 
STRING$(39,"*") en la 60. 

La función SPC (10) nos retorna 
10 espacios en blanco que, en este 
caso, son impresos en la pantalla. Po- 
díamos haber utilizado un LOCATE 
10,0 para lograr el mismo efecto. La 
razón por la que hemos utilizado la 
función SPC es para recordaros que 
existe, ya que es la mejor forma de de- 
jar espacios en un fichero, aunque 
aquí la utilicemos para otra cosa. 

La función STRING$(39, "*") utili- 
zada en la línea 60 nos retorna una 



cadena de caracteres con 39 asteris- 
cos. Esta instrucción es también muy 
utilizada en el tratamiento de fiche- 
ros. 

Las líneas 100 a 125 son las que 
realizan la pregunta del tamaño del 
sprite. La instrucción A$ = IN- 
PUT$( 1 ) de la línea 100 espera a que 
pulsemos una tecla, y la almacena en 
AS. En la línea 110 la función VAL 



nos devuelve el "valor" de la expre- 
sión alfanumérica (cadena de carac- 
teres). Si A$ contiene un número, la 
variable T pasará a contener ese nú- 
mero, mientras que si Af no contiene 
un número T valdrá O. En la línea 1 20 
comprobamos que se haya pulsado 1 
ó 2, retornando a la línea 100 en caso 
contrario. La línea 125 resta uno a T. 
Esto lo hacemos porque los sprites de 



Tratamiento de ficheros 



8x8 tienen por indicador O mientras 
que los de 16x 16 se indican con un 1. 

La línea 130 pondrá los pelos de 
punta a mas de uno. Se trata de una 
secuencia de escape que borra la pan- 
talla por debajo de la posición indica- 
da por el LOGATE anterior. Os reco- 
mendamos que consultéis el número 
22-23 de nuestra revista hermana 
MSX-CLUB, para una mayor infor- 
mación sobre todas las secuencias de 
escape que existen en los M8X. 

La línea 150 vuelve a esperar un 
carácter del teclado; pero a continua- 
ción lo tratamos de forma especial. A 
la pregunta de la línea 150 debemos 
esperar una respuesta "S", "a", "F o 
"n". 

La función INSTE sirve para en- 
contrar una cadena de caracteres en 
el interior de otra. De esta forma, en 
la línea 160 A=INSTR("NnSs"A*) 
buscamos la ocurrencia de A$ dentro 
de la cadena "NnSa". La variable A 
contendrá la posición en encuentro 
(1 a 4) o bien 0 si A$ no está en 
"NnSs", es decir, si hemos pulsado 
una tecla incorrecta. En este último 
caso la línea 170 nos devuelve a la 
150, repitiéndose la espera de una te- 
cla. En caso de que la entrada sea váli- 
da hemos de convertirla aun formato 
lógico. Pensemos qué ocurre si pulsa- 
mos "N" o V. En este caso A valdrá 1 
ó 2, y 3 ó 4 si pulsamos "S" o "a". Por lo 
tanto, al final de la línea 170 reata- 
moa uno a la variable A y realizamos 
la división entera por 2 (no confun- 
dir con /). Tras esto A contendrá 0 
ó 1 según hayamos pulsado "8" o "N". 

La8 líneas 200 a 230 contienen el 
bucle que lee la forma binarla de loa 
spritea. En primer lugar la duración 
del bucle varía aegún el tamaño del 
aprite (8 ó 16 líneaa horizontalea). 




Eato lo aolucionamoa en la línea 200. 
La línea 210, aparentemente compli- 
cada, no lo ea en abaoluto, a excep- 
ción de que utilizamoa PRINT USING. 
En esta línea indicamos al programa 
que eacriba, con aólo doa dígitoa, el 
contenido de la variable L 

En la línea 200 hacemos un INPÜT 
de la forma del aprite, con unoa y ce- 
roa, y en la 226 comprobamoa que ae 
hayan utilizado todas las posiciones 
(no queden puntos). 

Estas dos líneaa deberían haber 
sido sustituidas por una rutina de en- 
trada de datos espe cífica (número 
26-26 de MSX-EXTRA) pero no he- 
mos querido complicar el programa 
exceaivamente . 



ATAQUEMOS EL FICHERO 

Es en la línea 250 donde abrimos el 
fichero, de nombre PROG, para escri- 
tura, y con número 1. A partir de ahí 
vamos introduciendo en el fichero, 
por medio de la instrucción 
PRINT* 1, cada una de las líneas. No- 
tad que esta instrucción se utiliza 
igual que la instrucción PRINT (lí- 
neas 270, 290 y 300 ) y que se permite 
la separación con punto y coma. ¡No 
con coma! 

El problema final radica en cómo 
enviar al fichero las datas en formato 
binario que hemos leído del teclado. 
En el caso de sprites de 8x8 no hay 
nada más sencillo; simplemente co- 
locamoa antes del conjunto de unos y 
ceros el símbolo "&B" que indica al 
ordenador que sigue un número bi- 
nario. Las operacionea que preceden 
al "DATA GfB" de la línea 400 calculan 
el número de línea correapondiente a 
cada línea. 

En el caso de apritea de 16x16 el 
proceao ea ligeramente más compli- 
cado; pero en el fondo ea muy eimllar. 
Simplemente hemoa de dividir cada 
línea en doa bloquea mediante la ins- 
trucción MIDI. 

Terminamos en ambos casos ce- 
rrando el fichero y acabando el pro- 
grama. Por último, queremoa hacer 
notar que la línea 380 es correcta, ya 
que el programa aaltará a la línea 
500 aiempre que T aea diferente de 
cero. 

Llega ya el momento de de8pedir- 
noa hasta el próximo número, en que 
trataremos los ficheros de acceao 
aleatorio. 

porWillyMiragall 



VIVE LA APASIONANTE AVENTURA 
DE PILOTAR UN CAZA 



ES UN SIMULADOR ESPECTACULAR 

CON LA GARANTIA MANHATTAN TRANSFER. S A. 
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liNOS APLICAMOS A SER UTILES!! 

1 fl TRAVES DE MSX CLUB CE MAILMC PUEDES ftDQUIRIE 1 



INTELIGENTES 
BEE CARD Y SOFTCARD 



Deja el manual de lado, inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 
PVP 3.500 pts. 



O- 



Á V 



Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 



Sé. 
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ENVIA HOY MISMO ESTE CUPON 8 



Nombre y apellidos 

Dirección 

Población 



}'»{!!'«#, 



CP 



Prov. 



Tel. 



I 
I 
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□ Adaptador Softcard Ptas. 2.850- I 

□ Shark Hunter Ptas. 5.200- i 

□ Le Mans 2 Ptas. 5.200,- 

pts. a la orden de Manhattan | 

o^ransfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 1 0-1 2 bajos - 08023 Barcelona. j 



□ Tutor Basic Ptas. 3.500- □ Adaptador BeeCard Ptas. 2.850- 

□ SweetAcorn Ptas. 5.200,- □ Backgammon Ptas. 5.200- 

□ BarnStormer Ptas. 5.200- □ Chock'n Pop Ptas. 5.200- 
Gastos de envío por cada producto 100,- pts. Remito talón bancario de 



TRUCOS DEL 
PROGRAMADOR 




Javier Herreruela Morón 
nos envía una serle de Intere- 
santes trucos que podéis utili- 
zar en vuestros programas. 
Damos a continuación cuenta 
de todos ellos. 

LOCALIZAK 

POTTOS CON 
VPOKE 

lempre resulta interesante poder 
acceder mediante las instrucciones 
VPOKE Y VPEEK a nuestros gráfi- 



cos en SCREEN 2; pero normalmente re- 
sulta muy complicado conocer con exacti- 
tud la dirección de memoria de vídeo en la 
que se encuentra un determinado punto. 
Las siguientes líneas solucionan este pro- 
blema. 

Si suponemos que las X, Y como las 
coordenadas del punto en cuestión: 

S INT (Y/8)'286: V=IMT (X/8)*8: 
D = 8+ V+ CT- IHTC Y/8)*8) 

tenemos, tras la ejecución de estas ins- 
trucciones, en la variable D la dirección 
del punto en cuestión, dentro de la tabla de 
patrones. Para acceder a la tabla de colo- 
res correspondiente a ese mismo punto 
sólo hemos de sumar 8192 a la variable D. 



BORRAE 

PAMALLAEN 
ENSAMBLADOR 

Existe en la ROM de los M8X una rutina 
encargada de borrar la pantalla, de igual 
forma como lo hace CL8. Esta rutina se en- 
cuentra en la dirección 6JH848 y funciona 
en todos los modos sin ningún otro requi- 
sito especial. 



s 





COPIAR 
PANTALLA DE 
RAM A VRAM 

En algunos programas la pantalla se co- 
pia poco a poco en forma de pequeñas lí- 
neas que se van engrosando. Este efecto se 
puede simular en los MSX mediante las si- 
guientes líneas. Se supone que en lavarla- 
ble IN se encuentra la dirección de memo- 
ria RAM en que se encuentra en dibujo y 
que la variable INCOL apunta a la direc- 
ción de memoria RAM en la que se encuen- 
tran los colores del dibujo en cuestión. 
Sólo funciona en SCREEN 2. 

roa r=o to 7: n=f : roa d=i to 

768: VPOKE N, PEEK (OT + W): VPOKE 
8192 N,PEEK(INCOL +BT):K=H+8: 



ESCRIBIR EN 
NEGRITA 

Para conseguir caracteres en negrita en 
SCREEN 1 podemos hacer: 
rOR 8=38*8 TO 284-8 i 7: VPOKE 8, 
VPEEK CS) OR VPEEK CS)/8: NEXT 

Otro interesante efecto en SCREEN 1 se 
consigue con: 

lt)a 8=88*8 TO 254*8 7: VPOKE 8, 
VPEEK (8) XOR VPEEK (8)/2: NEXT. 



SUSCRIBETE HOY MISMO SI 
QUIERES ESTAREN VANGUARDIA 




Nombre y apellidos 



Ciudad 



Tel. 



Provincia 



La primera revista de MSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además tu condición de suscriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 
MANHATTAN TRANSFER, SJL 




Deseo suscribirme a la revista 
SUPERJUEGOS EXTRA MSX 



a partir del número 

FORMA DE PAGO: Mediante talón 

cario a nombre de: 

MANHATTAN TRANSFER, SJL 
C7. Roca 1 Batlle, 10-18 



liéis exactamente «1 : 
distritos postales. Gracias. 



por avión 
por avión 



Ptas. 8.880,- 
Ptas. 8.600,- 
Ptas. 3.880,- 
38 USAS 



¡ i ¡SONO LA FLAUTA!!! 



YA ESTA A LA VENTA 
EL SEGUNDO NUMERO 




La primera revista de Compact Disc de España 
COMPACTA Y DIFERENTE 

Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 

Toma nota de nuestro sumario 

- PLACIDO DOMINGO 

- MILES DA VIS 

- CRITICA MUSICAL 

- NOVEDADES EN APARA TOS 

- COMPLETO CA TALOGO DE DISCOS COMPACTOS 
Música clásica y jazz 

- SUPER TOP 




NO ES CASUALIDAD 



FAHRENHEU451 B-CTCACON RAMA 
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* 9 PRINCIPES EN AMBER 
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PHILIPS 
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PROFESION: DETECTIVE 






PHILIPS 

I 




PHILIPS 



